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1 . 


ABSTRACT 


Part 2 of the PDP-15 EAE Diagnostic verifies only correct operation of the EAE 
multiply and divide instructions. Part 2 is written in two sections; Section 1 
checks EAE instructions against predetermined results. This ranges from setup 
operation^ through multiply and divide instructions executed back to back; 
Section 2 is a random-number check of the signed multiply and signed divide 
instructions. 

Hardware malfunctions in Section 1 result inan error halt. Hardware mal- 
functions in Section 2 result in an error message on the teleprinter. 

2. REQUIREMENTS 

Storage 

The program when loaded occupies locations 20 to 7500 . 

Subprograms and/or Subroutines 

Teletype Output Package 

Signed Multiply Subroutine (modified) 

Signed Divide Subroutine (modified) 



Minimum configuration PDP-15 with EAE option installed 
3. USAGE 

3 . 1 Loading 

a . Set Bank Mode SW on 1 

b . Set address SW to 177JZ[0 

c. Press reset, press READ-IN. 



The program halts after loading. 

Set address switches to: 2 ^ Section 1 (Constants) 

201 Section 2 (Random numbers) 
203 Switch Setting typeout. 

Press Reset, press START. 

If 203 is chosen, program halts at 6622 after typeout. 

To continue, set ?00, or in address switches 
Press reset, press START. 
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3.3 


Switch Settings 


AC Switches = 0 or Down 


With all AC switches down, the program results in the following: 

a. Hardware malfunctions detected in Section 1 result in an error halt. 

b. Hardware malfunctions detected in Section 2 result in an error typeout. 

c. At the completion of the error typeout, the processor halts. 

d. The program completes whichever section of test it was started in, sequence 
from each subtest of the section to the next , without halting. 

AC Switches 1 or Up 

SW Operation Description 


0 

1 


2 


3 

4 


5 


6 


Delete error typeouts The program will not type out error 

messages, but will ring bell on error. 


Halt after EAE operation The processor halts after each EAE oper- 
ation is initiated and its results are 
verified. (Note: Press CONTINUE to 
proceed.) 


Repeat EAE operation The program repeats the last EAE operation, 

(Scope Loop) If SW2 is set during an error typeout or 

halt, the program repeats the operation 
that caused the error. (Note: SWT is test- 
ed before SW2.) 


Halt after EAE sequence The processor halts after each sequence of 

testing an EAE operation. 


Repeat EAE sequence The program repeats the last sequence of 

testing an EAE operation; i.e., the pro- 
gram repeats the EAE AC sign test and 
does not proceed to multiply/divide test. 
(Note: The program tests SW3 before SW4.) 

Cycle all sections At the completion of 77 passes through the 

Set-Up Test, the program proceeds to the 
Raixlom A^ltiply and Divide Test. At the 
completion of passes through Random Test 
the program repeats the Set-Up Test. 

Print “OK" after each pass when SW5 =1 
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3.4 


Start-Up and/or Entry 
Start up. Section 1 


Set AC switches = 000000 
Set address = 0200 
Press Reset 
Press START 
Start up. Section 2 
Set AC switch = 000000 
Set address = 0201 
Press Reset 
Press START 


3.5 Errors in Usage 

Hardware malfunctions detected in Section 1 will result in an error halt. Refer 
to the listing using the address in the memory register to identify the error. 

Hardware malfunctions detected in Section 2 will result in an error typeout on the 
teleprinter, and a processor halt. 

a. Error typeouts are in standard format and include the following 
information . 

b. Type of failure, multiply or divide. 

c. Initial problem set-up, contents of the AC, MQ, and the divisor 
and multiplicand. 

d. The results of the instruction, i.e., if divide, the quotient and 
remainder; if multiply, the high and low order product. A 
comparison of the results (software vs hardware). 

e. A printout of the ratio of failure, based on 100 octal iterations. 

f. If the ratio is small, it is recommended that CONTINUE be de- 
pressed to find a setup that produces a higher failure ratio. 

g. Then set the address register equal to the contents of the AC and 
depress START, This will generate a simulated printout of the EAE 
failure. After the printout the program will go into a scope loop, 
executing the instruction that failed. 
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3.5 (Continuecf) 

The abbreviations used by the header are as follows: 


Abbreviation 


Meaning 


C(L) 

C(AC) 

C(MQ) 

C(SC) 

(DIVISOR) 


The information under this header is the contents 

The information under this header is the contents 

The information under this header is the contents 

The information under this header is the contents 
COUNT. 


of LINK, 
of AC. 
of MQ. 
of SHIFT 


The information under this header is the contents of MB- 
not sign corrected. 


(MULTIPLICAND) The information under this header is the contents of MB- 
not sign corrected. 


Error Typeout Examples: 

a. Sign Multiply 

MULS FAILED MULTIPLIER MULTIPLICAND 


705722 167372 

HIGH ORDER PRODUCT LOW ORDER PRODUCT 
SOFTWARE 762343 133015 

HARDWARE 762443 762343 

OUT OF 100 CHECKS BAD 1 
6443XX (XX = SHIFT COUNT) 


b. Sign Divfde 

DIVS C(DIVISOR) C(AC) C(MQ) 

235012 223506 304176 


QUOTIENT REMAINDER 

SOFTWARE 741320 146136 

HARDWARE 74132P 146135 

OUT OF 100 CHECKS BAD 1 
6443XX (XX = SHIFT COUNT) 

c. Example of Multiply Simulation 

MULS FAILED MULTIPLIER (AC) MULTIPLICAND 

235037 534247 

HIGH ORDER PRODUCT LOW ORDER PRODUCT 
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SOFTWARE 754134 257305 


HARDWARE 

754134 


57305 

OUT OF 100 CHECK BAD 100 



657110 

(10 SHIFTS) 



C(L) 

C(AC) 

C(MQ) 


C(SC) 

0 

0 

235037 


70 (2's compliment of 10) 

0 

121654 

116417 


71 

0 

172602 

47207 


72 

0 

217155 

23503 


73 

0 

231342 

411641 


74 

0 

236435 

204720 


75 

0 

117216 

502350 


76 

0 

47507 

241164 


77 

0 

754134 

257305 


0 

d. Example 

of Divide Simulation 



DIVS FAILED 

C(DIVISOR) 

C(AC) 

C(MQ) 



317121 

216663 

047735 



QUOTIENT 

REMAINDER LINK 

SOFTWARE 

477353 

715731 

1 

HARDWARE 

477353 

715731 

0 

OUT OF ]00 

CHECK BAD 100 



644303 





(Program Halts. Set Address Register equal to AC then START. (3.5.g)) 

(Print out of simulated Divide) 



C(L) 

C(AC) 

C(MQ) 

C(SC) 


0 

216663 

047735 

075 .. 

... Initial AC & MQ after 
complenting 

0 

677542 

047735 

075 . 

... 1st subtract 

1 

577304 

1 17672 

076 . 

... 1st shift 

ovrflo 1 

116425 

117672 

076 . 

. . . .2nd subtract-overflow « 
caused 

0 

235052 

237565 

077 . 

. . . .2nd shift 

0 

715731 

237565 

077 . 

. . . .3rd subtract 

0 

715731 

477353 

077.. 

. .3rd shift-overflow recog- 





nized. 

1 

715731 

477353 

077 . 

, . . .Last cycle adjust. 


3 .6 Recovery from such Errors 


In Section 1, a malfunction causes o processor holt. In Section 2, a mal- 
function will generate an error typeout, then halt the processor. 

One of the following operations may be necessary if more information about the 
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3.6 (Continued) 

failure is needed to repair the malfunction. 

a. Repeat the exact operation that detected the failure (possibly a scope loop). 

b. Continue normally in the test to generate more information about the failure. 

c. Repeat the sequence of operation, or data patterns that detected the failure. 

d. Produce a simulotion printout of failing multiply or divide instruction. 

AC switch control is built into the program to allow for any of these operations 
assuming the processor has halted after an error. 

These operations may be accomplished as follows: 

a . Repeat same operation 

Set AC switch 2 up or to a 1 
Press CONTINUE 

Not that AC switch 0 si lows deletion of error typeout for a scope loop. 

b. Continue normally 
Press CONTINUE 

c. Repeat Sequence 

Set AC switch 4 up to a 1 
Press CONTINUE 

d. Simulation Printout 

Set Address Switch = C(AC) 

(At completion of Printout the program goes to an automatic scope loop.) 

4. PROGRAM DESCRIPTION 

4.1 General 

The PDP-15 EAE Diagnostic part 2 verifies correct operation of the Multiply and 
Divide EAE Instruction. Part 2 itself is written in two logical sections as follows: 

Section 1 - Set up test using fixed number 

Verifies correct operation of all EAE Multiply and Divide instructions with fixed 
numbers . 
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4,1 (Continued) 


Section 2 - Random Number 

Verifies correct operation of signed Multiply and Signed Divide instruction with 
random numbers. 

The above sections are to be run sequentially; that is. Section 1 must run before 
Section 2. 

4.2 Test Description 

4.2.1 Section 1 Set-Up Tes t - The Set-Up Test incrementally verifies correct operation 

of the multiply and divide instruction. 

a. "ADVP" Checks that the memory location following the multiply and/or 
divide instruction is not modified by the execution of the instruction and that 
the program address counter is properly incremented during the exectuion of 
the instruction. 

b. "NEAE" Set up check - Checks the set-up of all EAE signed, unsigned, in- 
teger and fraction, multiply and divide instructions. These instructions are 
executed with a shift count of zero. 

c. "SHCT" Shift Counter Test- Executes the Multiply instruction sequentially 
starting at a shift count of 1 and incrementing it up to a shift count of 22. 

d. "STMUL" Sign multiply and divide test - Test all signed multiply and divide 
instructions. 

e. "MULTST" Multiply and Divide Test - This test using worse-case number 
patterns acts as both a EAE and Adder Test. 

f . "MSPEED" Speed Multiply and Divide - This test is in three operations: 

(1) a sequence of multiply instructions are executed back to back, (2) then 
a sequence of divide instructions are executed, (3) followed by a sequence 
of MUL, DIV, MUL, and DIV executed back to back. 


4.2.2 Section 2 Random Data Multiply and Divide Test - The Random Data Test verifies 

that the EAE will multiply and divide random numbers at shift counts 1 through 
maximum (22 for multiply, 23 for divide) and checks that the LINK is set on 



4.2.2 (Continued) 

divide overflow. 

The sequence of testing is as follows: 

(a) Test the Multiply 

(1) Generate a random number 

(2) Do a software divide 

(3) Do a software divide 

(4) Compare the results of both operations 

(5) LOOP BACK TO 1 TILL DONE 

4.2.3 Extended Reliability Test - 

a. If it is desired to run an extended reliability test on the EAE and the 
computer is to be left unattended, the halts in Part II Section 2 should 
be changed. 

MULCT-2 From a Halt to a NOP (6254) 

TIMTEX-2 From a Halt to a NOP (6304) 

b. There is also a counter that counts pass completes "CTCMPT". This 
counter is cleared when starting the program or when restarting at 
"FIRST" oc FIRST + 3 (CTCMPT = 7146). 
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EAE-I I 


00200 

00200 

00201 

00202 

00203 

00204 

00205 

00206 
00207 
00210 
00211 
00212 

00213 

00214 

00215 

00216 
00217 
00220 
00221 
00222 

00223 

00224 

00225 

00226 
00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 


.TITLE EAE-II 



/EAE Part 

I I 

multiply 

and DIVIDE-FOR PDP 15 


/ 

/start 

aT 

200 

FOR section one (CONSTANTS) 


/start 

at 

201 

FOR SECTION TWO (RANDOM DATa) 


/START 

AT 

203 

FOR SWITCH setting TYpEOUTS. 


/ 


. ABS 





.LOG 

200 


606624 



JMP 

RUN + 1 


606627 



JMP 

RUN + 4 


607047 



JMP 

FIRST 


740000 

AOVP 


NOP 



147176 



OHM 

stema# 

/CHECK FOR P HNCREMENT 

147177 



DZM 

stemb# 

/with no shift 

207176 



LAC 

stema 


673101 



MUL 

-21 


740040 



HLT 

/P 

NOT incremented (105) 

741000 



SKp 



740040 



HLT 

/P 

OVER incremented (107) 

447176 



ISZ 

STEMA 


600206 



JMP 

. -6 


147176 



DZM 

stema 

/CHECK EOR P increment 

147177 



DZM 

STEMB 

/WITH 22 SHIFT COUNTS 

207176 



LAC 

STEMA 


653122 



MUL 



740040 



HLT 

/P 

NOT INCREMENTER (116) 

741000 



SKP 



740040 



HLT 

/P 

over incremented (120) 

447177 



ISZ 

STEMB 


600217 



JMP 

. -6 


147176 



DZM 

STEMA 

/IS memory restored 

147177 



DZM 

STEMB 

/correctly 

207176 



LAC 

STEMA 


653122 



MUL 



007177 



stemb 


741000 



SKp 



740040 



HLT 

/P 

over INCREMENTER (132) 

207177 



LAC 

STEMB 


547176 



SAD 

STEMA 


741000 



SKP 



740040 



HLT 

/VA 

RUBLE NOT restored CORRECT (136) 

447176 



ISZ 

STEMA 


7 40000 



NOP 



447177 



ISZ 

STEMB 


600230 



JMP 

.-14 


740000 



NOP 


/EXIT 


.EJECT 
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/BASIC 

EAE instruction /NO SHIFTS /NO GSM 

PI0?46 

104162 

NEAE 

JMS 

L00P4 

/HLT ADDRESS 

00?47 

104157 


JMS 

L00P2 


00?50 

744002 


STL 



00251 

207205 


lac 

(070707) 


00252 

652000 


LMq 



00253 

207206 


LAC 

(252525) 


00254 

644100 


EAE 

4100 

/SPECIAL INST 644100 

00255 

000001 


000001 


00256 

047156 


DAC 

p I AC# 


00257 

641002 


LACq 


00260 

047157 


DAC 

riMQ# 


00261 

547207 


SAD 

( 707070 


00262 

741000 


SKP 


MQ, 0000=707070 (160) 

00263 

740040 


HLT 

/BAD 

00264 

207156 


LAC 

FI AC 


00265 

547210 


SAU 

(525252 


00266 

741000 


SKP 



00267 

740040 


HLT 

/BAD 

AC, G00D = t525252 ( 164 ) 

00270 

104130 


JMS 

HLOOPS 


00271 

740000 


NOP 



00272 

104157 


JMS 

L00P2 


00273 

207205 


LAC 

(070707) 


00274 

652000 


LMQ 



00275 

207206 


LAC 

(252525) 


00276 

644100 


EAE 

4100 

/SPECIAL INST 644100 

00277 

777776 


777776 


00300 

047156 


DAC 

FIAC 


00301 

641002 


LACQ 


00302 

047157 


DAC 

FIMQ 


00303 

547205 


SAO 

(070707) 


00304 

741000 


SKP 



00305 

740040 


HLT 

/BAD 

MQ, GOOD=070707 (202) 

00306 

207156 


LAC 

FIAC 


00307 

547206 


SAD 

(252525) 


00310 

741000 


SKP 



00311 

740040 


HLT 

/BAD 

AC, G00D=252525 (206) 

00312 

104130 


JMS 

HLOOPS 


00313 

104157 


JMS 

L00P2 


00314 

740000 


NOP 



00315 

207207 


LAC 

( 707070 ) 


00316 

652000 


LMQ 



00317 

207206 


LAC 

(252525) 


00320 

644100 


EAE 

4100 

/SPECIAL INST 644100 

00321 

000001 


000001 


00322 

047156 


DAC 

FIAC 


00323 

641002 


LACQ 






.EJECT 
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00324 047157 

00325 547207 

00326 741000 

00327 ■'40040 

00330 207156 

00331 547206 

0033 ? 741000 

00333 740040 

00334 104130 

00335 104157 

00336 740000 

00337 207207 

00340 652000 

00341 207210 

00342 644100 

00343 777776 

00344 047156 

00345 641002 

00346 047157 

00347 547207 

00350 741000 

00351 740040 

00352 207156 

00353 547210 

00354 741000 

00355 740040 

00356 104130 

00357 104157 


( 224 ) 


DAC FIMQ 
SAD (707070) 

SKP 

HIT /BAD MO, GOOD=707070 

LAC FIAC 
SAD (252525) 

SKP 

HLT /BAD AC. G00D=252525 (230) 

JMS HLOOPS 
JMS L00P2 
NOP 

LAC (707070) 

LMQ 

LAC (525252) 

EAE 4100 /SPECIAL INST 644100 

777776 

OAC FIAC 

LACQ 

DAC FIMQ 
SAD (707070) 

SKP 

HLT /BAD MO, GOOD=707070 (246) 

LAC FIAC 
SAD (525252) 

SKP 

HLT /BAD AC. G00Ds525252 (252) 

JMS HLOOPS 
JMS L00P2 
.EJECT 
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00360 

740000 

NEAB 

NOP 





00361 

207205 


LAC 

(070707 ) 




0036? 

652000 


LMQ 





00363 

207206 


LAC 

(252525) 




00364 

654100 


FAE 

14100 


/SPECIAL INST 

654100 

00365 

000001 


000001 




00366 

047156 


OAC 

r I AC 




00367 

641002 


LACq 




00370 

047157 


DAC 

FIMQ 




00371 

547211 


SAD 

(000000 




00372 

741000 


SKP 





00373 

740040 


HLT 

/BAD 

MQ, 

GOODS000000 

( 270 ) 

00374 

207156 


LAC 

FIAC 




00375 

547206 


SAO 

(252525) 




00376 

741000 


SKP 





00377 

740040 


HLT 

/BAD 

AC, 

G00Dr252525 

(274 ) 

00400 

104130 


JMS 

HLOOPS 




00401 

104157 


JMS 

L00P2 




00402 

740000 


NOP 





00403 

207205 


LAC 

(070707) 




00404 

652000 


LMQ 





00405 

207206 


LAC 

(252525) 




00406 

654100 


EAE 

14100 


/SPECIAL INST 

654100 

00407 

777776 


777776 




00410 

047156 


DAC 

fiac 




00411 

641002 


LACq 




00412 

047157 


DAC 

FIMQ 




00413 

547211 


SAD 

(000000 




00414 

741000 


SKP 





00415 

740040 


HLT 

/BAD 

MO, 

GOOD=000000 

(312) 

00416 

207156 


LAC 

FIAC 




00417 

547206 


SAD 

(252525) 




00420 

741000 


SKP 





00421 

740040 


HLT 

/BAD 

AC, 

G00DS252525 

(316 ) 

00422 

104130 


JMS 

HLOOPS 




00423 

104157 


JMS 

L00P2 







.EJECT 
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00424 

7 40000 

NOP 




00425 

207207 

LAC 

( 707070) 



00426 

652000 

LMQ 




00427 

654100 

EAE 

14100 


/SPECIAL INST 

00430 

000001 

000001 



00431 

047156 

DAC 

FIAC 



00432 

641002 

LACQ 



00433 

047157 

DAC 

FIMQ 



00434 

547211 

SAD 

( 000000 



00435 

741000 

SKP 




00436 

740040 

HLT 

/BAD 

MO, 

0000=000000 

00437 

207156 

LAC 

FIAC 



00 4 40 

547207 

SAD 

(707070) 



00441 

741000 

SKP 




00442 

740040 

HLT 

/BAD 

AC, 

0000=707070 

00443 

104130 

JMS 

HLOOPS 



00444 

104157 

JMS 

L00P2 



00445 

740000 

NOP 




00446 

207207 

LAC 

(707070) 



00447 

652000 

LMQ 




00450 

207210 

LAC 

(525252) 



00451 

654100 

EAE 

14100 


/SPECIAL INST 

00452 

777776 

777776 



00453 

047156 

DAC 

FIAC 



00454 

641002 

LACQ 



00455 

047157 

DAC 

FIMQ 



00456 

547211 

SAD 

(000000) 



00457 

741000 

SKP 




00460 

740040 

HLT 

/BAD 

MQ, 

0000=000000 

00461 

207156 

LAC 

FIAC 



00462 

547210 

SAD 

(525252) 



00463 

741000 

SKP 




00464 

740040 

HLT 

/BAD 

AC, 

0000=525252 

00465 

104130 

JMS 

HLOOPS 



00466 

104157 

JMS 

L00P2 





.EJECT 




654100 

(333) 

(337 ) 

654100 

(355) 

(361 ) 
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00467 

740000 

00470 

207205 

00471 

65?000 

00472 

207206 

00473 

673100 

00474 

000001 

004 75 

047156 

004 76 

641002 

00477 

047157 

00500 

547206 

00501 

741000 

0050p 

740040 

00503 

207156 

00504 

547211 

00505 

741000 

00506 

740040 

00507 

104130 

00510 

104157 

00511 

7 40000 

00512 

207205 

00513 

652000 

00514 

207206 

00515 

673100 

00516 

777776 

00517 

047156 

00520 

641002 

00521 

047157 

00522 

547206 

00523 

741000 

00524 

740040 

00525 

207156 

^&526 

547211 

00527 

741000 

00530 

740040 

00531 

104130 

00532 

104157 

00533 

740000 

00534 

207207 

00535 

652000 

00536 

207210 

00537 

673100 

00540 

000001 

00541 

047156 

00542 

641002 

00543 

047157 

00544 

547210 

00545 

741000 

00546 

740040 

00547 

207156 

00550 

547211 

00551 

741000 

00552 

740040 

00553 

104130 


NMUL 


NOP 

LAC (070707) 
LMO 

LAC (2‘^252‘>) 
MUl -22 


/multiply instructions With no 
/CHECKING setup, The FIRST ONE 
/AC MO AC MQ 

/(2525?5)X( »00001 )=0 00t'’002‘5’2^2'' 


000001 

DAC E.AC /DURjNG setup THE mQ jS SET Tq 

lacQ /The eae instruction does an ac euqal to 

DAC FIMQ 
sad (2^2525) 

SKP 

HLT /BAD MO, G00Ds5)52525 (377) 

LAC riAC 
SAD (000000) 

SKP 

HLT /BAD AC, GOOD=000000 (403) 

JMS HLOOPS 
JMS LOOPp 
NOP 


LAC (070707) 

LMQ 

LAC (252525) 

MUL -22 
777776 
DAC FIAC 
LACq 

DAC FIMQ 
SAD (252525) 

SKP 

HLT /BAD MO, G00Dr252525 (421) 

LAC FIAC 
SAD (000000) 

SKP 

HLT /BAD AC, GOODr000000 (425) 

JMS HLOOPS 
JMS L00P2 
NOP 

LAC (707070) 

LMQ 

LAC (52525?) 

MUL -22 


000001 
DAC FIAC 
LACQ 

DAC FIMQ 
SAD (525252) 

SKP 

HLT /BAD MO, G00D=525252 (443) 

LAC FIAC 
SAD (000000 
SKP 

HLT /BAD AC, GOOD=000000 (447) 

JMS HLOOPS 


.EJECT 


Shifts 

IS 


some VAlUF 

MQ transfer 
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00554 104157 

00555 740000 

00556 P07207 

00557 652000 

00560 207210 

00561 673100 

00562 777776 

00563 047156 

00564 641002 

00565 047157 

00566 547210 

00567 741000 

00570 740040 

00571 207156 

00572 547211 

00573 741000 

00574 740040 

00575 104130 

00576 104157 


JMS L0nP2 
NOP 

LAC (707070) 

LMQ 

LAC (525252) 

MUL -22 
777776 
DAC riAC 
LACQ 

OAC FIMQ 
SAD (525252) 

SKP 

HLT /BAD MO, G00D=525252 (465) 

LAC FI AC 
SAD (000000 
SKP 

HLT /BAD AC, GOOD=000000 (471) 

JMS HLOOPS 
JMS L00P2 
.EJECT 



PAGE H 


FAE-I 1 


P!0'577 

00600 

00601 

0060? 

00603 

00604 

00605 

00606 
00607 
00610 
00611 
00612 

00613 

00614 

00615 

00616 
00617 
00620 
00621 
00622 

00623 

00624 

00625 

00626 
00627 

00630 

00631 

00632 

00633 

00634 


740000 

207205 

652000 

207206 

677100 

000001 

047156 

641002 

047157 

547206 

741000 

740040 

207156 

547211 

741000 

740040 

104130 

104157 

740000 

207205 

652000 

207206 

677100 

777776 

047156 

641002 

047157 

547206 

741000 

740040 


NMULS NOP 

LAC (070707) /SIGNED MULTIPLY NO SHIFTS 

LMO 

LAC (252525) 

MULS -22 
000001 
DAC plAC 
LACq 

OAC FIMQ 
SAD (252525) 

SKP 

HLT /BAD MQ, G00D=252525 (507) 

LAC FIAC 
SAD (000000) 

SKP 

HLT /BAD AC, GOODS000000 (513) 

JMS HLOOPS 
JMS L00P2 
NOP 

LAC (070707) 

LMO 

LAC (252525) 

MULS -22 
777776 
DAC riAC 
LACq 

DAC FIMQ 
SAD (252525) 

SKP 

HLT /BAD MO, 0000=252525 (531) 

.EJECT 
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EAE-I I 


00635 

207156 

LAC 

FI AC 



00636 

547211 

SAD 

( 000000 ) 



00637 

741000 

SKP 




00640 

740040 

HLT 

/BAD 

AC, 

GOOD=000000 

00641 

104130 

JMS 

HLOOPS 



00642 

104157 

JMS 

LU0P2 



00643 

740000 

NOP 




00644 

207207 

lac 

(707070) 



00645 

652000 

LMQ 




00646 

207210 

LAC 

(525252 



00647 

677100 

MULS 

-22 



00650 

000001 

000001 



00651 

047156 

OAC 

FIAC 



00652 

641002 

LACq 



00653 

047157 

DAC 

F IMQ 



00654 

547210 

SAD 

(525252) 



00655 

741000 

SKP 




00656 

740040 

HLT 

/BAD 

MQ, 

G00D=525252 

00657 

207156 

LAC 

FIAC 



00660 

547212 

SAD 

(777777) 



00661 

741000 

SKP 




00662 

740040 

HLT 

/BAD 

AC, 

G00Ds777777 

00663 

104130 

JMS 

HLOOPS 



00664 

104157 

JMS 

L00P2 



00665 

740000 

NOP 




00666 

207207 

LAC 

(707070) 



00667 

652000 

LMQ 




00670 

207210 

LAC 

(525252) 



00671 

677100 

MULS 

-22 



00672 

777776 

777776 



00673 

047156 

DAC 

FIAC 



00674 

641002 

LACQ 




00675 

047157 

DAC 

FIMQ 



00676 

547210 

SAD 

(525252) 



00677 

741000 

SKP 




00700 

740040 

HLT 

/BAD 

MQ, 

G00D=525252 

00701 

207156 

LAC 

FIAC 



00702 

547212 

SAD 

(777777) 



00703 

741000 

SKP 




00704 

740040 

HLT 

/BAD 

AC, 

G00D=777777 

00705 

104130 

JMS 

HLOOPS 



00706 

104157 

JMS 

L00P2 





.EJECT 




(535) 


( 553 ) 


(557) 


(575) 


( 601 ) 



PAGE 


EAE-I I 


007C57 740000 NOIV 

007I0 207205 


007ii 

652000 

00712 

207206 

00713 

660300 

00714 

000001 

00715 

047156 

00716 

641002 

00717 

047157 

00720 

547205 

00721 

741000 

00722 

740040 

00723 

207156 

00724 

547206 

00725 

741000 

00726 

740040 

00727 

104130 

00730 

104157 

00731 

740000 

00732 

740000 

00733 

207205 

00734 

652000 

00735 

207206 

00736 

660300 

00737 

777776 

00740 

047156 

00741 

641002 

00742 

047157 

00743 

547205 

00744 

741000 

00745 

740040 

00746 

207156 

00747 

547206 

00750 

741000 

00751 

740040 

00752 

104130 

00753 

104157 


NOP /DIVIDE INSTRUCTION NO SHIFTS 

LAC (070707) /THE EAE INSTRUCTIONS OOFS NOT 

/change the AC OR THE MQ 

LMO 

LAC (2*52525) 

OIV -23 
000001 
D AC E I A C 
LACq 

DAC FIMQ 
SAD (070707) 

SKP 

HLT /BAD MO, GOODs070707 (6l7) 

LAC FIAC 
SAD (25252*5) 

SKP 

HLT /BAD AC, G00Dr252525 (623) 

JMS HLOOPS 
JMS LOOP2 
NOP 
NOP 

LAC (070707 
LMO 

LAC (252525 
OIV -23 
777776 
DAC FIAC 
LACq 

DAC FIMQ 
SAD (070707) 

SKP 

HLT /BAD MO, GOODS070707 (642) 

LAC FIAC 
SAD (252525) 

SKP /BAD AC, 0000=252525 (646) 

HLT 

JMS HLOOPS 
JMS L00P2 
.EJECT 
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EAE-I I 


00754 740000 

00755 207207 

00756 652000 

00757 207210 

00760 660300 

00761 000001 

00762 047156 

00763 641002 

00764 047157 

00765 547207 

00766 741000 

00767 740040 

00770 207156 

00771 547210 

0077? 741000 

00773 740040 

00774 104130 

00775 104157 

00776 740000 

00777 207207 

01000 652000 

01001 207210 

01002 660300 

01003 777776 

01004 047156 

01005 641002 

01006 047157 

01007 547207 

01010 741000 

01011 740040 

01012 207156 

01013 547210 

01014 741000 

01015 740040 

01016 104130 

01017 104157 


NOP 

lac (707070 
LMQ 

LAC (525252 
D I V - 2 3 
000001 
DAC EIAC 
LACQ 

OAC FIMQ 
SAD (707070) 

SKP 

HLT /BAD MQ, GOOD=707070 (664) 

LAC EIAC 
SAD (525252 
SKP 

HLT /BAD AC, G00D=525252 (670) 

JMS HLOOPS 
JMS L00P2 
NOP 

LAC (707070 
LMQ 

LAC (525252 
DIV -23 
777776 
DAC EIAC 
LACQ 

DAC EIMQ 
SAD (707070) 

SKP /BAD MQ, GOOD=707070 (706) 

HLT 

LAC EIAC 
SAD (52525? 

SKP /BAD AC, G00D=525252 (712) 

HLT 

JMS HLOOPS 
JMS L00P2 
.EJECT 



PAGE 12 


FAF-I I 


VI1020 

740000 

ND I VS 

NOP 



/NO SHIFTS 

01021 

207205 


LAC 

(070707) 



01022 

652000 


LMO 




01023 

207206 


LAC 

(252525 



01024 

664300 


nivs 

-23 



01025 

000001 


000001 



01026 

047156 


DAC 

p I AC 



01027 

641002 


LACq 




01030 

047157 


DAC 

FIMQ 



01031 

547205 


SAD 

(070707) 



01032 

741000 


SKP 




01033 

740040 


HLT 

/BAD 

MQ. 

GOOD=070707 

01034 

207156 


LAC 

FIAC 



01035 

547206 


SAD 

(252525) 



01036 

741000 


SKP 




01037 

740040 


HLT 

/BAD 

AC, 

G00D=252525 

01040 

104130 


JMS 

HLOOPS 



01041 

104157 


JMS 

L00P2 



01042 

740000 


NOP 




01043 

207205 


LAC 

(070707 



01044 

652000 


LMQ 




01045 

207206 


LAC 

(252525 



01046 

664300 


OIVS 

-23 



01047 

777776 


777776 



01050 

047156 


DAC 

fiac 



01051 

641002 


LACq 



01052 

047157 


DAC 

FIMQ 



01053 

547205 


SAD 

(070707 



01054 

741000 


SKP 




01055 

740040 


HLT 

/BAD 

MQ, 

GOODS070707 

01056 

207156 


LAC 

FIAC 



01057 

547206 


SAD 

(252525) 



01060 

741000 


SKP 




01061 

740040 


HLT 

/BAD 

AC, 

G00DS252525 

01062 

104130 


JMS 

HLOOPS 






.EJECT 




vide signed 

(730 ) 

(734) 


(752) 

( 756 ) 
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EAE-I I 


01P!63 

104157 



JMS 

L0nP2 




01064 

740000 



NOP 





01065 

207207 



LAC 

( 707070 




01066 

652000 



LMQ 





01067 

207206 



LAC 

( 252525 




010 70 

664300 



DI VS 

-23 




01071 

000001 



000001 




01072 

641002 



LACQ 





01073 

047157 



DAC 

FIMQ 




01074 

547207 



SAD 

( 707070) 




01075 

741000 



SKP 





01076 

740040 



HLT 

/BAD 

MQ, 

GOOD=707070 

(773 ) 

01077 

207156 



LAC 

FI AC 




01100 

547206 



SAD 

(252525) 




01101 

741000 



SKP 





01102 

740040 



HLT 

/BAD 

AC, 

G00D=252525 

(777 ) 

01103 

104130 



JMS 

HLOOPS 




01104 

104157 



JMS 

L00P2 




01105 

740000 



NOP 





01106 

207207 



LAC 

( 707070 




01107 

652000 



LMO 





01110 

207210 



LAC 

(525252 




01111 

664300 



DIVS 

-23 




01112 

777776 



777776 




01113 

047156 



DAC 

FI AC 




01114 

641002 



LACQ 




01115 

047157 



DAC 

FIMQ 




01116 

547207 



SAD 

( 707070 




01117 

741000 



SKP 





01120 

740040 



HLT 

/BAD 

MQ, 

GOOD=707070 

(1015) 

01121 

207156 



LAC 

FI AC 




01122 

547210 



SAD 

(525252) 




01123 

741000 



SKP 





01124 

740040 



HLT 

/BAD 

AC, 

G000=525252 

(1021) 

01125 

104130 



JMS 

HLOOPS 




01126 

104157 



JMS 

LOOP2 






/I 

NTEGER 

DIVIDE 






/I 

CLEAR 

MQ 







/2 

AC TO 

MQ 







/3 

CLEAR 

AC 






.EJECT 



PAGE 14 


EAE-I I 


01127 

740000 

NIDI V 

NOp 



/NO shift 

integer niv 

01130 

207205 


LAC 

(070707 ) 




01131 

652000 


lmo 





01132 

207206 


LAC 

( 252525 




01133 

673300 


IDI V 

-23 




01134 

000001 


000001 




01135 

047156 


DAC 

p I AC 




01136 

641002 


LACq 




01137 

047157 


DAC 

FIMQ 




01140 

547206 


SAD 

(252525 




01141 

741000 


SKP 





01142 

740040 


HLT 

/BAD 

MO, 

0000=252525 

(1037) 

01143 

207156 


LAC 

FI AC 




01144 

547211 


SAD 

(000000 ) 




01145 

741000 


SKP 





01146 

740040 


HLT 

/BAD 

AC, 

0000=000000 

(1043) 

01147 

104130 


JMS 

HLOOPS 




01150 

104157 


JMS 

L00P2 




01151 

740000 


NOP 





01152 

207205 


LAC 

(070707 




01153 

652000 


LMQ 





01154 

207206 


LAC 

(252525 




01155 

673300 


IDIV 

-23 




01156 

777776 


777776 




01157 

047156 


DAC 

F I AC 




01160 

641002 


LACq 





01161 

047157 


DAC 

FIMQ 




01162 

547206 


SAD 

(252525 




01163 

741000 


SKP 





01164 

740040 


HLT 

/BAD 

HQ, 

0000=252525 

( 1061 ) 

01165 

207156 


LAC 

FIAC 




01166 

547211 


SAD 

( 000000 ) 




01167 

741000 


SKP 





01170 

740040 


HLT 

/BAD 

AC, 

0000=000000 

( 1065 ) 

01171 

104130 


JMS 

HLOOPS 




01172 

104157 


JMS 

L00P2 







.EJECT 






PAGE 15 


EAE~I I 


01173 

740000 

01174 

207207 

01175 

652000 

01176 

207206 

01177 

673300 

01200 

000001 

01201 

047156 

01202 

641002 

01203 

047157 

01204 

547206 

01205 

741000 

01206 

740040 

01207 

207156 

01210 

547211 

01211 

741000 

01212 

740040 

01213 

104130 

01214 

104157 

01215 

740000 

01216 

207207 

01217 

652000 

01220 

207210 

01221 

673300 

01222 

777776 

01223 

047156 

01224 

641002 

01225 

047157 

01226 

547210 

01227 

741000 

01230 

740040 

01231 

207156 

01232 

547211 

01233 

741000 

01234 

740040 

01235 

104130 

01236 

104157 


NOP 

LAC (7917070 
LMO 

LAC (252525) 

IDIV -23 
000001 
DAC FIAC 
LACQ 

DAC FIMQ 
SAD (252525 
SKP 

HLT /BAD MO, G00D=252525 (1103) 

LAC FIAC 
SAD (000000 
SKP 

HLT /BAD AC, 0000=000000 (1107) 

JMS HLOOPS 
JMS L00P2 
NOP 

LAC (707070 
LMQ 

LAC (525252 
IDIV -23 
777776 
DAC FIAC 
LACQ 

DAC FIMQ 
SAD (525252 
SKP 

HLT /BAD MQ, GOOD=525252 (1125) 

LAC FIAC 
SAD (000000) 

SKP 

HLT /BAD AC, GOOD=000000 (1131) 

JMS HLOOPS 
JMS L00P2 
.EJECT 



PAGE 16 


EAE-I I 


01237 740000 

01240 207205 

01241 652000 

0124? 207206 

01243 677300 

01244 000001 

01245 047156 

01246 641002 

01247 047157 

01250 547206 

01251 741000 

01252 740040 

01253 207156 

01254 547211 

01255 741000 

01256 740040 

01257 104130 

01260 104157 

01261 740000 

01262 207205 

01263 652000 

01264 207206 

01265 677300 

01266 777776 

01267 047156 

01270 641002 

01271 047157 

01272 547206 

01273 741000 

01274 740040 

01275 207156 

01276 547211 

01277 741000 

01300 740040 

01301 104130 

01302 104157 


NIDIVS NOP /NO SHIFTS INTEGER DIVIDE SIGNED 

LAC (070707) 

LMQ 

LAC (252525 
lOIVS -23 
000001 
DAC eIAC 
LACq 

DAC EIMQ 
SAD (252525) 

SKP 

HLT /BAD MQ, G00D=252525 (1147) 

LAC riAC 
SAD (000000) 

SKP 

HLT /BAD AC, GOOD=000000 (1153) 

JMS HLOOPS 
JMS LOOP? 

NOP 

LAC (070707 
LMQ 

LAC (252525 
ID I VS -23 
777776 
DAC eIAC 
LACq 

DAC EIMQ 
SAD (252525) 

SKP 

HLT /BAD MO, 0000=252525 (ll7l) 

LAC EIAC 
SAD (000000) 

SKP 

HLT /bad AC, GOOD=000000 (1175) 

JMS HLOOPS 
JMS LOOP? 

.EJECT 



^AGE 17 


EAE-I I 


01303 740000 

01304 207207 

01305 652000 

01306 ?07210 

01307 677300 

01310 000001 

01311 047156 

01312 641002 

01313 047157 

01314 547210 

01315 741000 

01316 740040 

01317 207156 

01320 547212 

01321 741000 

01322 740040 

01323 104130 

01324 104157 

01325 740000 

01326 207207 

01327 652000 

01330 207210 

01331 677300 

01332 777776 

01333 047156 

01334 641002 

01335 047157 

01336 547210 

01337 741000 

01340 740040 

01341 207156 

0134? 547212 

01343 741000 

01344 740040 

01345 104130 

01346 104157 


NOP 

LAC (707070 
LMO 

LAC (525252 
IDIVS -23 
000001 
DAC FIAC 
LACQ 

OAC FIMQ 
SAn (525252 
SKP 

HLT /BAD MO, G00D=525252 (1213) 

LAC FIaC 
SAD (777777 
SKP 

HLT /BAD AC, G00D=777777 (1217) 

JMS HLOOPS 
JMS LOOP? 

NOP 

LAC (707070 
LMO 

LAC (525252 
IDIVS -23 
777776 
OAC FIAC 
LACQ 

OAC FIMQ 
SAD (525252 
SKP 

HLT /BAD MO, G00D=525252 (1235) 

LAC FIAC 
SAD (777777) 

SKP 

HLT /BAD AC, G00D=777777 (1241) 

JMS HLOOPS 
JMS LOOP? 

/FRACTION divide 
/I CLEAR MQ 

.EJECT 



PAGE 18 


EAF-I I 


01347 

740000 

NFRDIV 

NOP 



/NO SHIFT 

01350 

207205 


LAC 

(070707) 



01351 

652000 


LMQ 




01352 

207206 


LAC 

(252525 



01353 

670300 


FRO 

IV -23 



01354 

000001 


000001 



01355 

047156 


DAC 

F I AC 



01356 

641002 


LACq 



01357 

047157 


DAC 

FIMQ 



01360 

547211 


SAD 

(000000 



01361 

741000 


SKP 




01362 

740040 


hlt 

/BAD 

MQ, 

GOOD=000000 

01363 

207156 


LAC 

FI AC 



01364 

547206 


SAD 

(252525) 



01365 

741000 


SKP 




01366 

740040 


HLT 

/BAD 

AC, 

G00D=252525 

01367 

104130 


JMS 

HLOOPS 



01370 

104157 


JMS 

L00P2 



01371 

740000 


NOP 




01372 

207205 


LAC 

(070707 



01373 

652000 


LMQ 




01374 

207206 


LAC 

(252525 



01375 

670300 


FRDIV -23 



01376 

777776 


777776 



01377 

047156 


DAC 

fiac 



01400 

641002 


LACq 



01401 

047157 


DAC 

FIMQ 



01402 

547211 


SAD 

( 000000 ) 



01403 

741000 


SKP 




01404 

740040 


HLT 

/BAD 

MQ, 

GOOOS000000 

01405 

207156 


LAC 

FIAC 



01406 

547206 


SAD 

(252525) 



01407 

741000 


SKP 




01410 

740040 


HLT 

/BAD 

AC, 

G00D=252525 

01411 

104130 


JMS 

HLOOPS 



01412 

104157 


JMS 

L00P2 






.EJECT 




FRACTION DIVIDE 

(1257) 

(1263) 

(1301) 

( 1305 ) 



PAGE 19 


EAE-I I 


01413 

740000 


NOP 





01414 

207207 


LAC 

(707070 




01415 

652000 


LMO 





01416 

207206 


LAC 

( 252525 




01417 

670300 


FRDIV -23 




01420 

000001 


000001 




01421 

047156 


DAC 

FIAC 




01422 

641002 


LACQ 





01423 

047157 


OAC 

FIMQ 




01424 

547211 


SAO 

(000000 ) 




01425 

741000 


SKP 





01426 

740040 


HLT 

/BAD 

MQ, 

GOOD=000000 

(1323) 

01427 

207156 


LAC 

F I AC 




01430 

547206 


SAO 

(252525) 




01431 

741000 


SKP 





01432 

740040 


HLT 

/BAD 

AC, 

G00D=?52525 

(1327) 

01433 

104130 


JMS 

HLOOPS 




01434 

104157 


JMS 

L00P2 




01435 

740000 


NOP 





01436 

207207 


LAC 

( 707070 




01437 

652000 


LMO 





01440 

207210 


LAC 

(525252 




01441 

670300 


FRDIV -23 




01442 

777776 


777776 




01443 

047156 


DAC 

FIAC 




01444 

641002 


LACQ 




01445 

047157 


OAC 

FIMQ 




01446 

547211 


SAD 

( 0'0 0000) 




01447 

741000 


SKP 





01450 

740040 


HLT 

/BAD 

MO, 

GOOOS000000 

(1345) 

01451 

207156 


LAC 

FIAC 




01452 

547210 


SAD 

(525252 ) 




01453 

741000 


SKP 





01454 

740040 


HLT 

/BAD 

AC, 

G00D=525252 

(1351) 

01455 

104130 


JMS 

HLOOPS 




01456 

104157 


JMS 

L00P2 






/PDP-15 

EAE 1 I 

- tape 

2 



01457 

740000 

/ 

NFROVS 

NOP 



/NO shifts 

fraction divi 

01460 

207205 


lac 

(070707 ) 




01461 

652000 


LMO 





01462 

207206 


lac 

(252525 




01463 

674300 


FrDIVS -23 




01464 

000001 


000001 




01465 

047156 


DAC 

F I AC 




01466 

641002 


LACQ 





01467 

047157 


OAC 

FIMQ 




01470 

547211 


SAD 

( 000000 ) 




01471 

741000 


SKP 





01472 

740040 


HLT 

/BAD 

MO, 

GOOD=000000 

(1367) 

01473 

207156 


LAC 

F I AC 




01474 

547206 


SAO 

(252525) 




01475 

741000 


SKP 





01476 

740040 


HLT 

/BAD 

AC, 

G00D=252525 

(1373) 

01477 

104130 


JMS 

HLOOPS 





DE SIGNED 
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01500 

104157 

JMS 

L00P2 



01501 

740000 

NOP 




01502 

207205 

LAC 

(070707 



01503 

652000 

LMQ 




01504 

207206 

LAC 

(252525 



01505 

674300 

FROIVS -23 



01506 

777776 

777776 



01507 

047156 

DAC 

p I AC 



01510 

641002 

LACq 



01511 

047157 

DAC 

FIMQ 



01512 

547211 

SAD 

( 000000 ) 



01513 

741000 

SKP 




01514 

740040 

HLT 

/BAD 

MO, GOODs(!)00000 

(1411) 

01515 

207156 

LAC 

FI AC 



01516 

547206 

SAD 

(252525) 



01517 

741000 

SKP 




01520 

740040 

HLT 

/BAD 

AC,; *99 ;252525 

(1415) 

01521 

104130 

JMS 

HLOOPS 



01522 

104157 

JMS 

L00P2 
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01523 

740000 

01524 

207207 

01525 

652000 

01526 

207206 

01527 

674300 

01530 

000001 

01531 

047156 

01532 

641002 

01533 

047157 

01534 

547211 

01535 

741000 

01536 

740040 

01537 

207156 

01540 

547206 

01541 

741000 

01542 

740040 

01543 

104130 

01544 

104157 

01545 

740000 

01546 

207207 

01547 

652000 

01550 

207210 

01551 

674300 

01552 

777776 

01553 

047156 

01554 

641 002 

01555 

047157 

01556 

547212 

01557 

741000 

01560 

740040 

01561 

207156 

01562 

547210 

01563 

741000 

01564 

740040 

01565 

104130 

01566 

104134 

01567 

104162 

01570 

104157 


NOP 

LAC (7P17PI70 
LMQ 

LAC ( 2^2525 
FRDIVS -23 
7)000Pll 
DAC FIAC 
LACQ 

DAC FIMQ 
SAD (000000) 

SKP 

HLT /BAD MO, GOOD=000000 

LAC FIAC 
SAD (252525) 

SKP 

HLT /BAD AC, 0000=252525 

JMS HLOOPS 
JMS L00P2 
NOP 

LAC (707070 
LMQ 

LAC (525252 
FRDIVS -23 
777776 
DAC FIAC 
LACQ 

DAC FIMQ 
SAD (777777) 

SKP 

HLT /BAD MO, G00D=777777 

LAC FIAC 
SAD (525252) 

SKP 

HLT /BAD AC, G00D=525252 

JMS HLOOPS 

JMS HLOOPM 

JMS L00P4 

JMS L00P2 

.EJECT 


(1433) 

(1437 ) 

(1455 ) 

( 1461 ) 
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/SHIFT 

counter test 





P)157l 

744000 

shcti 

CLL 


/multiply with 

SHIFT OF 

ONE 

t^l572 

207212 


LAC (777777 





01573 

673101 


MUL -21 





01574 

000001 


000001 





01575 

047156 


OAC p I AC# 





01576 

547211 


gAD ( 000000 





01577 

741000 


sKp 





01600 

740040 


HLT /BAD 

AC. 

GOOD=000000 

(1475) 


01601 

641002 


LACQ 





01602 

047157 


OAC FIMQ# 





01603 

547212 


SAD (777777 





01604 

741000 


SKP 


0000=777777 

(1502) 


01605 

7 40040 


HLT /BAD 

MQ, 


01606 

641001 


LACS 





01607 

740200 


SZA 


GOOO=000000 

( 1505) 


01610 

740040 


HLT /BAD 

SC, 


01611 

104130 


JMS HLOOPS 


/multiply With 

Shift of 

TWO 

01612 

104157 

ShcT2 

JMS L00P2 


01613 

207212 


LAC (777777 





01614 

673102 


MUL -20 





01615 

000002 


000002 





01616 

047156 


OAC fiac 





01617 

547213 


SAD (000001 





01620 

741000 


SKP 





01621 

740040 


HLT /BAD 

AC, 

0000=000001 

(1516) 


01622 

641002 


LACQ 





01623 

047157 


OAC FIMQ 





01624 

547214 


SAD (577777 





01625 

741000 


SKP 





01626 

740040 


HLT /BAD 

MO, 

G00D=577777 

(1523) 


01627 

641001 


LACS 





01630 

740200 


SZA 





01631 

740040 


HLT /BAD 

SC, 

GOOD=000000 

(1526) 


01632 

104130 


JMS HLOOPS 




three 

01633 

104157 

ShcT3 

JMS L00P2 


/multiply wjth 

Shift of 

01634 

207212 


lac (777777 





01635 

673103 


MUL -17 





01636 

000004 


000004 





01637 

047156 


DAC FIAC 





01640 

547215 


SAD (000003 





01641 

741000 


SKP 





01642 

740040 


HLT /BAD 

AC, 

GOOD=000003 

(1537) 


01643 

641002 


LACQ 





01644 

047157 


OAC FIMQ 





01645 

547216 


SAD (477777 





01646 

741000 


SKP 





01647 

740040 


HLT /BAD 

MQ, 

G00D=477717 

( 1 544 ) 


01650 

641001 


LACS 





01651 

740200 


SZA 





01652 

740040 


HLT /BAD 

SC, 

GOOD=000000 

(1547) 


01653 

104130 


JMS HLOOPS 






.EJECT 
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01654 

104157 

SHCT4 

JMS L00P2 


/shift OF FOUR 


01655 

207212 


LAC (777777 




01656 

673104 


MUL -16 




01657 

000010 


000010 




01660 

047156 


nAC FIAC 




01661 

547217 


SAD (0710007 




01662 

741000 


SKP 




01663 

740040 


HLT /BAD 

AC. 

GOODr000007 

( 1 560 ) 

01664 

641002 


LACQ 




01665 

047157 


OAC FIMQ 




01666 

547220 


SAD (437777 




01667 

741000 


SKP 




01670 

740040 


HLT /BAD 

MQ, 

GOOD 5437777 

( 1565 ) 

01671 

641001 


LACS 




01672 

740200 


S2A 




01673 

740040 


HLT /BAD 

SC, 

GOOO=000000 

< 1574 ) 

01674 

I04I30 


JMS HLOOPS 




01675 

104157 

SHCT5 

JMS L00P2 


/shift OF FIVE 


01676 

207212 


LAC (777777 




01677 

673105 


MuL -15 




01700 

000020 


000020 




01701 

047156 


DAC FIAC 




01702 

547221 


SAD (000017 




01703 

741000 


SKP 




01704 

740040 


HLT /BAD 

AC, 

GOOD=000017 

(1601) 

01705 

641002 


LACQ 




01706 

047157 


DAC FIMQ 




01707 

547222 


SAD (417777 




01710 

741000 


SKP 




01711 

740040 


HLT /BAD 

MO, 

G00D=417777 

(1606) 

01712 

641001 


LACS 




01713 

740200 


sza 




01714 

740040 


HLT /BAD 

SC, 

0000=000000 

(1611) 

01715 

I04I30 


JMS HLOOPS 




01716 

104157 

SHcT6 

JMS LOOP2 


/shift of SIX 


01717 

207212 


LAC (777777 




01720 

673106 


MUL -14 




01721 

000040 


000040 




01722 

047156 


DAC FIAC 




01723 

547223 


SAD (000037 




01724 

741000 


SKP 




01725 

740040 


HLT /BAD 

AC, 

0000=000037 

(1622) 

01726 

641002 


LACQ 




01727 

047157 


DAC FIMQ 




01730 

547224 


SAD (407777 




01731 

741000 


SKP 




01732 

740040 


HLT /BAD 

MO, 

GOOD=407777 

(1627) 

01733 

641001 


LACS 




01734 

740200 


SZ A 




01735 

740040 


HLT /BAD 

SC, 

GOOD=000000 

( 1632) 

01736 

104130 


JMS HLOOPS 







.EJECT 
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01737 

104157 

SHCT7 

JMS L0nP2 


/shift of seven 


01740 

207212 


LAC (777777 




01741 

673107 


MUL -13 




01742 

000100 


000100 




01743 

047156 


OAC pi AC 




01744 

547225 


SAO (000077 




01745 

741000 


SKp 




01746 

7 40040 


HLT /BAD 

AC, 

GOOD=000077 

( 1643) 

01747 

641002 


LACQ 




01750 

047157 


DAC FIHQ 




01751 

547226 


SAO (403777 




01752 

741000 


SKP 




01753 

740040 


HLT /BAD 

MQ, 

0000=403777 

(1650) 

01754 

641001 


LACS 




01755 

740200 


S2A 




01756 

7 40040 


HLT /BAD 

SC, 

GOOOS000000 

(1653) 

01757 

I04I30 


JMS HLOOPS 




01760 

104157 

SHCT10 

JMS L00P2 


/Shift of ten 


01761 

207212 


LAC (777777 




01762 

673110 


MUL -12 




01763 

000200 


000200 




01764 

047156 


OAC FIAC 




01765 

547227 


SAD (000177 




01766 

741000 


SKp 




01767 

740040 


HLT /BAD 

AC, 

0000=000177 

(1664) 

01770 

641002 


LACQ 




01771 

047157 


OAC FIMQ 




01772 

547230 


SAO (401777 




01773 

741000 


SKP 




01774 

740040 


HLT /BAD 

MO, 

0000=401777 

(1671) 

01775 

641001 


LACS 




01776 

740200 


SZA 




01777 

740040 


HLT /BAD 

SC, 

0000=000000 

( 1674) 

02000 

I04I30 


JMS HLOOPS 




02001 

104157 

shctii 

JMS L00P2 


/shift of eleven 

02002 

207212 


LAC (777777 




02003 

673111 


MUL -11 




02004 

000400 


000400 




02005 

047156 


DAC FIAC 




02006 

547231 


SAD (000377 




02007 

741000 


SKP 




02010 

740040 


HLT /BAD 

AC, 

0000=000377 

(1705) 

02011 

641002 


LACQ 




02012 

047157 


OAC FIMQ 




02013 

547232 


SAO (400777 




02014 

741000 


SKP 




02015 

740040 


HLT /BAD 

MQ, 

0000=400777 

(1712) 

02016 

641001 


LACS 




02017 

740200 


S Z A 




02020 

740040 


HLT /BAD 

SC, 

GOOD=000000 

(1715) 

02021 

104130 


JMS HLOOPS 







.EJECT 
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02022 

104157 

SHCT12 

JMS L00P2 

/SHIFT OF 

TWELVE 

02023 

207212 


LAC (777777 



02024 

673112 


MUL -10 



02025 

0 T 1 0 0 0 


001000 



02026 

047156 


OAC FIAC 



02027 

547233 


SAD (000777 



02030 

741000 


SKP 



02031 

740040 


HLT /bad 

AC, GOOD=000777 

(1726) 

02032 

641002 


LACQ 



02033 

047157 


OAC FIMQ 



02034 

547234 


SAD (400377 



02035 

741000 


SKP 



02036 

740040 


HLT /BAD 

MQ, GOOD=400377 

(1733) 

02037 

641001 


LACS 



02040 

740200 


SZA 



02041 

740040 


HLT /BAD 

SC, GOOD=000000 

{ 1736) 

02042 

104130 


JMS HLOOPS 



02043 

104157 

SHCT13 

JMS L00P2 

/shift of 

Thirteen 

02044 

207212 


LAC (777777 



02045 

673113 


MuL -7 



02046 

002000 


002000 



02047 

047156 


DAC FIAC 



02050 

547235 


SAD (001777 



02051 

741000 


SKP 



02052 

740040 


HLT /BAD 

AC, GOOD=001777 

( 1747 ) 

02053 

641002 


LACQ 



02054 

047157 


DAC FIMQ 



02055 

547236 


SAD (400177 



02056 

741000 


SKP 



02057 

740040 


HLT /BAD 

MQ, GOOD=400177 

(1754) 

02060 

641001 


LACS 



02061 

740200 


SZA 



02062 

740040 


HLT /BAD 

sc, GOOD=000000 

(1757) 

02063 

104130 


JMS HLDOPS 



02064 

104157 

SHCT14 

JMS L00P2 

/shift Of 

fourteen 

02065 

207212 


lac (777777 



02066 

673114 


MUL -6 



02067 

004000 


004000 



02070 

047156 


DAC FIAC 



02071 

547237 


SAD (003777 



02072 

741000 


sKp 



02073 

740040 


HLT /BAD 

AC, GOOD=003777 

( 1770 ) 

02074 

641002 


LACQ 



02075 

047157 


DAC FIMQ 



02076 

547240 


SAD (400077 



02077 

741000 


SKP 



02100 

740040 


HLT /BAD 

MQ, GOOD=400077 

(1775) 

02101 

641001 


LACS 



02102 

740200 


SZA 



02103 

740040 


HLT /BAD 

SC, GOOD=000000 

( 2000 ) 

02104 

104130 


JMS HLOOPS 






.EJECT 
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M2105 

104157 

SHCTi5 

JMS L00P2 

/shift of 

FIFTEEN 

02106 

207212 


LAC (777777 



02107 

673115 


MUL -5 



02110 

010000 


010000 



02111 

047156 


DAC fIAC 



02112 

547241 


SAO (007777 



02113 

741000 


SKp 



02114 

740040 


HLT /BAD 

AC, GOOOS007777 

(2011) 

02115 

641002 


LACQ 



02116 

047157 


OAC FIMQ 



02117 

547242 


SAD (400037 



02120 

741000 


SKP 



02121 

740040 


HLT /BAD 

MO, GOOD=400037 

(2016 ) 

02122 

641001 


LACS 



02123 

740200 


S2A 



02124 

740040 


HLT /BAD 

SC, GOOD=000000 

(2021) 

02^25 

104130 


JMS HLOOPS 



02126 

104157 

ShcT16 

JMS L00P2 

/shift Of 

sixteen 

02127 

207212 


LAC (777777 



02130 

673116 


MUL -4 



02131 

020000 


020000 



02132 

047156 


DAC fIAC 



02133 

547243 


SAD (017777 



02134 

741000 


SKp 



02135 

740040 


HLT /BAD 

AC, GOOD=017777 

(2032) 

02136 

641002 


LACQ 



02137 

047157 


DAC FIMQ 



02140 

547244 


SAD (400017 



02141 

741000 


SKP 



02142 

740040 


HLT /BAD 

MQ, GOODs400017 

(2037) 

02143 

641001 


LACS 



02144 

740200 


SZA 



02145 

740040 


HLT /BAD 

SC, GOOD:000000 

(2042) 

02146 

104130 


JMS HLOOPS 



02147 

104157 

ShcT17 

JMS L00P2 

/shift of 

SEVENTEEN 

02150 

207212 


lac (777777 



02151 

673117 


MUL -3 



02152 

040000 


040000 



02153 

047156 


OAC FIAC 



02154 

547245 


SAO (037777 



02155 

741000 


SKP 



02156 

740040 


HLT /BAD 

AC. GOOD=037777 

(2053) 

02157 

641002 


LACQ 



02160 

047157 


OAC FIMQ 



02161 

547246 


SAD (400007 



02162 

741000 


SKP 



02163 

740040 


HLT /BAD 

MQ, GOOD=400007 

( 2060 ) 

02164 

641001 


LACS 



02165 

740200 


SZA 



02166 

740040 


HLT /BAD 

SC, GOODS000000 

( 2063 ) 

02167 

104130 


JMS HLOOPS 
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02170 104157 SHCT20 

02171 207212 

02172 673120 

02173 100000 

02174 047156 

02175 547247 

02176 741000 

02177 740040 

02200 641002 

02201 047157 

02202 547250 

02203 741000 

02204 740040 

02205 641001 

02206 740200 

02207 740040 

022^0 104130 

02211 104157 SHCT21 

02212 207212 

02213 673121 

02214 200000 

02215 047156 

02216 547251 

02217 741000 

02220 740040 

02221 641002 

02222 047157 

02223 547252 

02224 741000 

02225 740040 

02226 641001 

02227 740200 

02230 740040 

02231 104130 

02232 104157 SHCT22 

02233 207212 

02234 653122 

02235 400000 

02236 047156 

02237 547253 

02240 741000 

02241 740040 

02242 641002 

02243 047157 

02244 547254 

02245 741000 

02246 740040 

02247 641001 

02250 740200 

02251 740040 

02252 104130 

02253 104134 

02254 104162 


/SHIFT OF TWENTY 


JMS LOOP? 

LAC (777777 
MUL -2 
100000 
DAC FIAC 
SAD (077777 
SKP 

HLT /BAD AC, 0000=077777 (2074) 

LACQ 

DAC FIMQ 
SAD (400003 
SKP 

HLT /BAD MQ, GOOD=400003 (2101) 

LACS 

SZA 

HLT /BAD SC, 0000=000000 (2104) 

JMS HLOOPS 

JMS L00P2 /shift OF TWfNTYONE 

lac (777777 
MUL -1 
200000 
OAC FIAC 
SAD (177777 
SKP 

HLT /BAD AC, G00D=i77777 (2115) 

LACQ 

DAC FIMQ 
SAD (400001 
SKP 

HLT /BAD MQ, 0000=400001 (2122) 

LACS 

SZA 

HLT /BAD SC, 0000=000000 (2125) 

JMS HLOOPS 

JMS L00P2 /shift OF TWfNTYTWO 

LAC (777777) 

MUL 

400000 
DAC FIAC 
SAD (377777 
SKp 

HLT /BAD AC, 0000=377777 (2136) 

LACQ 

OAC FIMQ 
SAD (400000 
SKP 

HLT /BAD MQ, 0000=400000 (2143) 

LACS 

SZA 

HLT /BAD SC, 0000=000000 (?146) 

JMS HLDOPS 

JMS HLOOPM 

JMS L0nP4 

.EJECT 
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/DIVIDE 

SHIFT TEST 


02255 

104157 

DSCl 

JMS L00P2 

/SHirT OF ONE 

02256 

207255 


LAC (52523 


02257 

652000 


LMO 


02260 

207256 


LAC (052524 


02261 

640301 


DI V-22 


02262 

377777 


377777 


02263 

047156 


DAC p I AC# 


02264 

547256 


SAD (052524 


02265 

741000 


SKp 


02266 

740040 


HLT 

/BAD AC; GOOD 

02267 

641002 


LACQ 


02270 

047157 


DAC FIMQ# 


02271 

547257 


SAD (125246 


02272 

741000 


SKP 


02273 

740040 


HLT 

/BAD MQ; good 

02274 

104130 


JMS HLOOPS 


02275 

I04I57 

DSc2 

JMS L00P2 

/shift of two 

02276 

207255 


LAC (52523 


02277 

652000 


LMO 


02300 

207256 


lac (052524 


02301 

640302 


DlV-21 


02302 

377777 


377777 


02303 

047156 


DAC FIAC 


02304 

547260 


SAD (125250 


02305 

741000 


SKP 


02306 

740040 


HLT 

/BAD AC; GOOD 

02307 

641002 


LACQ 


02310 

047157 


DAC FIMQ 


02311 

547261 


SAD (252514 


02312 

741000 


SKP 


02313 

740040 


HLT 

/BAD MQ; good 

02314 

104130 


JMS HLOOPS 



.EJECT 


052524 


125246 


125250 


252514 
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02315 

1 04157 

DSC3 

JMS L00P2 

/SHIFT OF Three 

02316 

207255 


LAC (52523 


02317 

652000 


LMQ 


02320 

207256 


LAC (052524 


02321 

640303 


0 I V -20 


02322 

377777 


377777 


02323 

047156 


DAC EIAC 


02324 

547262 


SAD (252520 


02325 

741000 


SKP 


02326 

740040 


HLT 

/BAD AC; GOOD = 

02327 

641002 


LACQ 


02330 

047157 


DAC FIMQ 


02331 

547263 


SAD (525230 


02332 

741000 


SKP 


02333 

740040 


HLT 

/BAD mq; good = 

02334 

104130 


JMS HLOOPS 


02335 

I 04 I 57 

/ 

DSC 4 

JMS L00P2 

/shift OF FOUR 

02336 

207255 


LAC (52523 


02337 

652000 


LMQ 


02340 

207256 


lac (052524 


02341 

640304 


01 V-17 


02342 

377777 


377777 


02343 

047156 


DAC EIAC 


02344 

547264 


SAD (125241 


02345 

741000 


SKP 


02346 

740040 


HLT 

/BAD AC; GOOD = 

02347 

641002 


LACQ 


02350 

047157 


DAC FIMQ 


02351 

547265 


SAD (252461 


02352 

741000 


‘SKP 


02353 

740040 


HLT 

/BAD MO; GOOD = 

02354 

104130 


JMS HLOOPS 


02355 

I 04 I 57 

/ 

DSC5 

JMS L0nP2 

/shift of five 

02356 

207255 


LAC (52523 


02357 

652000 


LMQ 


02360 

207256 


LAC (052524 


02361 

640305 


DI V-16 


02362 

377777 


377777 • 


02363 

047156 


DAC fIAC 


02364 

547266 


SAO (252503 


02365 

741000 


SKp 


02366 

740040 


HLT 

/BAD AC; GOOD = 

02367 

641002 


LACQ 


02370 

047157 


DAC FIMQ 


02371 

547267 


SAD (525142 


02372 

741000 


SKP 


02373 

740040 


HLT 

/BAD mq; good = 

02374 

104130 


JMS HLOOPS 





.EJECT 



25?52i3 


525230 


125241 


252461 


252503 


525142 
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02375 

104157 

nsc6 

JMS LOOP 2 

02376 

207255 


LAC (52523 

02377 

652000 


LMQ 

02400 

207256 


LAC (052524 

02401 

640306 


Dl V-15 

02402 

377777 


377777 

02403 

047156 


DAC pIAC 

02404 

547270 


sAD (125207 

02405 

7 41000 


SKp 

02406 

740040 


HLT 

02407 

641002 


LACQ 

02410 

047157 


DAC FIMQ 

02411 

547271 


SAD (252305 

02412 

741000 


SKP 

02413 

740040 


HLT 

02414 

104130 


JMS HLOOPS 

024 I 5 

I 04 I 57 

DSC7 

JMS L00P2 

02416 

207255 


LAC (52523 

02417 

652000 


LMQ 

02420 

207256 


LAC (052524 

02421 

640307 


DI V-14 

02422 

377777 


377777 

02423 

047156 


DAC FIAC 

02424 

547272 


SAD (252417 

02425 

741000 


SKp 

02426 

740040 


HLT 

02427 

641002 


LACQ 

02430 

047157 


DAC FIMQ 

02431 

547273 


SAD (524612 

02432 

741000 


SKP 

02433 

740040 


HLT 

02434 

104130 


JMS HLOOPS 

02435 

104157 

OSC10 

JMS L00P2 

02436 

207255 


LAC (52523 

02437 

652000 


LMQ 

02440 

207256 


lac (052524 

02441 

640310 


DIV-13 

02442 

377777 


377777 

02443 

047156 


DAC FIAC 

02444 

547274 


SAD (125037 

02445 

741000 


SKP 

02446 

740040 


HLT 

02447 

641002 


LACQ 

02450 

047157 


DAC FIMQ 

02451 

547275 


SAD (251425 

02452 

741000 


SKP 

02453 

740040 


HLT 

02454 

104130 


JMS HLOOPS 
.EJECT 


/shift of six 

/BAD AC; GOOD = 125207 

/BAD MQ; good = 252305 

/shift of Seven 

/BAD AC; GOOD = 252417 

/BAD MO; GOOD = 524612 
/shift of ten 

/BAD AC; GOOD = 125037 

/BAD MQ; GOOD = 251425 
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02455 

104157 

DSCll 

JMS L00P2 

02456 

207255 


LAC (52523 

02457 

652000 


LMO 

02460 

207256 


LAC (052524 

02461 

640311 


01 v-12 

02462 

377777 


377777 

02463 

047156 


OAC FIAC 

02464 

547276 


SAD (252077 

02465 

741000 


SKP 

02466 

740040 


HLT 

02467 

641002 


LACQ 

02470 

047157 


OAC EIMQ 

02471 

547277 


SAD (523052 

02472 

741000 


SKP 

02473 

740040 


HLT 

02474 

104130 

/ 

DSC12 

JMS HLOOPS 

02475 

I04I57 

JMS L00P2 

02476 

207255 


LAC (52523 

02477 

652000 


LMQ 

02500 

207256 


lac (052524 

02501 

640312 


DI V-11 

02502 

377777 


377777 

02503 

047156 


DAC FIAC 

02504 

547300 


SAD (124177 

02505 

741000 


SKP 

02506 

740040 


HLT 

02507 

641002 


LACQ 

02510 

047157 


DAC FIMQ 

02511 

547301 


SAD (246125 

02512 

741000 


SKP 

02513 

740040 


HLT 

02514 

104130 


JMS HLOOPS 

025I5 

104157 

y 

DSC13 

JMS L00P2 /SHIFT OF 

02516 

207255 


LAC (52523 

02517 

652000 


LMQ 

02520 

207256 


LAC (052524 

02521 

640313 


01 V-10 

02522 

377777 


377777 

02523 

047156 


DAC FIAC 

02524 

547302 


SAD (250377 

02525 

741000 


SKp 

02526 

740040 


HLT 

02527 

641002 


LACQ 

02530 

047157 


DAC FIMQ 

02531 

547303 


SAD (514252 

02532 

741000 


SKP 

02533 

740040 


HLT 

02534 

104130 


JMS HLOOPS 
.EJECT 


/SHIFT OF ELFVFN 

/BAD AC; GOOD = 252077 

/BAD MO; GOOD = 523052 

/shift of twelve 

/BAD AC; GOOD = 124177 

/BAD MO; GOOD = 246125 
thirteen 

/BAD AC; GOOD = 250377 

/BAD MQ; GOOD = 514252 
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02535 

104157 

0SC14 

JMS LOOP 2 

/shift of 

fourteen 

02536 

207255 


LAC (52523 



02537 

652000 


LMQ 



0 2540 

207256 


LAC (052524 



02541 

640314 


DIV-7 



02542 

377777 


377777 



02543 

047156 


CAC pIAC 



02544 

547304 


SAD (120777 



02545 

741000 


SKp 



02546 

740040 


hlt 

/BAD AC; 

GOOD = 120777 

02547 

641002 


LACQ 



02550 

047157 


OAC FIMQ 



02551 

547305 


SAD (230525 



02552 

741000 


SKP 



02553 

740040 


HLT 

/BAD MO; 

good = 230525 

02554 

104130 


JMS HLOOPS 



02555 

I04I57 

DSCI5 

JMS L00P2 

/shift of 

fifteen 

02556 

207255 


LAC (52523 



02557 

652000 


LMQ 



02560 

207256 


lac (052524 



02561 

640315 


01 V-6 



02562 

377777 


377777 



02563 

047156 


oac riAC 



02564 

547306 


SAD (241777 



02565 

741000 


SKp 



02566 

740040 


HLT 

/BAD AC; 

GOOD = 241777 

02567 

641002 


LACQ 



02570 

047157 


DAC FIMQ 



02571 

547307 


SAD (461252 



02572 

741000 


SKP 



02573 

740040 


HLT 

/BAD mq; 

GOOD = 461252 

02574 

104130 


JMS HLOOPS 



02575 

I04I57 

/ 

DSC16 

JMS L00P2 

/shift of 

SIXTEEN 

02576 

207255 


LAC (52523 



02577 

652000 


LMQ 



02600 

207256 


LAC (052524 



02601 

640316 


01 V-5 



02602 

377777 


377777 



02603 

047156 


DAC FIAC 



02604 

547310 


SAD (103777 



02605 

741000 


SKP 



02606 

740040 


HLT 

/BAD AC; 

GOOD = 10377 

02607 

641002 


LACQ 



02610 

047157 


DAC FIMQ 



02611 

547311 


SAD (142525 



02612 

741000 


SKP 



02613 

740040 


HLT 

/BAD MQ; 

GOOD = 142525 

02614 

104130 


JMS HLOOPS 






.EJECT 





PAGE 33 


EAF-I I 


02615 

104157 

DSC17 

JMS LOOP 2 

/shift of 

0 2616 

207255 


LAC (52523 


02617 

652000 


LMQ 


02620 

207256 


LAC (052524 


02621 

640317 


D I V-4 


02622 

377777 


377777 


02623 

047156 


DAC FIAC 


02624 

547312 


SAD (207777 


02625 

741000 


SKP 


02626 

740040 


HLT 

/BAD AC; 

02627 

641002 


LACQ 


02630 

047157 


DAC FIMQ 


02631 

547313 


SAD (305252 


02632 

7 41 000 


SKP 


02633 

740040 


HLT 

/BAD MO; 

02634 

104130 


JMS HLOOPS 


02635 

104^57 

/ 

DSC20 

JMS L00P2 

/shift of 

02636 

207255 


LAC (52523 


02637 

652000 


LMQ 


02640 

207256 


UAC (052524 


02641 

640320 


01 V-3 


02642 

377777 


377777 


02643 

047156 


DAC FIAC 


02644 

547243 


SAD (017777 


02645 

741000 


SKP 


02646 

740040 


HLT 

/BAD AC; 

02647 

641002 


LACQ 


02650 

047157 


DAC riMQ 


02651 

547314 


SAD (612525 


02652 

741000 


SKP 


02653 

740040 


HLT 

/BAD mq; 

02654 

104130 


JMS HLOOPS 


02655 

I04I57 

y 

DSc21 

JMS L00P2 

/shift of 

02656 

207255 


LAC (52523 


02657 

652000 


lmo 


02660 

207256 


LAC (052524 


02661 

640321 


DI V-2 


02662 

377777 


377777 


02663 

047156 


DAC fIAC 


02664 

547315 


SAD (037776 


02665 

741000 


SKp 


02666 

740040 


HLT 

/BAD AC; 

02667 

641002 


LACQ 


02670 

047157 


DAC FIMQ 


02671 

547316 


SAD (425252 


02672 

741000 


SKP 


02673 

7 40040 


HLT 

/RAD MO; 

02674 

104130 


JMS HLOOPS 


02675 

104134 


JMS HLOOPM 


02676 

104162 


JMS L00P4 




/EAE Part 

1 1 Tape 2a 




/EAE SIGN 

TEST 



/ 


SEVENTFFM 

GOOD = 2^7777 

GOOD = 30'5252 
twenty 

GOOD = 017777 

GOOD = 612525 

TWENTYONE 

GOOD = 037776 

GOOD = 425252 
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EAE-I I 




/MULS SIGN TEST 






/EAE AC SIGN FF TEST 




02677 

I 04 I 57 

/ 

STMUL JMS L00P2 

/(HLT ADDRESS) 


02700 

207317 

LAC (000002 




02701 

664000 

qSM 

/gSm=0 

AC = 0 


02702 

653122 

MUL 




02703 

777776 

777776 




02704 

741100 

SPA 




02705 

740040 

HLt 

/SHqULD 

RE poSiTivE 

(2160) 

02706 

207320 

LAC (777775 




02707 

664000 

GSM 

/GSM=i 

AC = 1 


02710 

207320 

LAC (777775 




02711 

653122 

MUL 




02712 

777776 

777776 




02713 

740100 

sma 




02714 

740040 

HLt 

/sHould 

BE negative 

(2167) 

02715 

104130 

JMS HLOOPS 




02716 

104157 

STMULS JMS LOOP2 




02717 

207213 

LAC ( 000001 




02720 

664000 

GSM 

/GSM=0 

AC = 0 


02721 

657122 

MULS 




02722 

000002 

000002 




02723 

741100 

SPA 




02724 

740040 

HLT 

/should 

BE POSITIVE 

(2177) 

02725 

207321 

LAC (777776 




02726 

664000 

GSM 

/GSMri 

AC = 0 


02727 

207317 

LAC (000002 




02730 

657122 

MULS 




02731 

777776 

777776 




02732 

741100 

SPA 




02733 

741000 

SKP 




02734 

740040 

HLT 

/SHOULD 

BE NEGATIVE 

(2207) 

02735 

207320 

LAC (777775 




02736 

664000 

GSM 

/GSM=1 

AC = 1 


02737 

207320 

LAC (777775 




02740 

657122 

MULS 




02741 

777776 

777776 




02742 

741100 

SPA 




02743 

740040 

HLT 

/SHOULD 

BE POSITIVE 

( 2216) 

02744 

207213 

LAC (000001 




02745 

664000 

GSM 

/GSMs0 

0 

II 


02746 

207320 

LAC (777775 




02747 

657122 

MULS 




02750 

000002 

000002 




02751 

741100 

SPA 




02752 

741000 

SKP 




02753 

740040 

HLT 

/SHOULD 

PE NEGATIVE 

(2226) 



.EJECT 
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EAE-I I 


/divide sign test nivs 


02754 

104130 


JMS 

HLOOPS 




02755 

104157 

STDI VS 

JMS 

L00P2 




02756 

207322 


lac 

(000005 




02757 

652000 


LMO 





02760 

202764 


LAC 

. 4 




02761 

664000 


GSM 





02762 

207211 


LAC 

( 000000 




02763 

644323 


01 VS 





02764 

000004 


000004 




02765 

741400 


S2L 





02766 

740040 


hlt 

/BAD 

LINK 

» good LINK=0 

(2241) 

02767 

047156 


DAC 

fiac# 




02770 

547213 


SAD 

(000001 




02771 

741000 


SKP 





02772 

740040 


HLT 

/BAD 

AC, 

GOOD=00000l 

(2245) 

02773 

641002 


LACQ 





02774 

047157 


DAC 

FIMQ# 




02775 

547213 


SAD 

(000001 




02776 

741000 


SKP 





02777 

740040 


HLT 

/BAD 

MQ. 

GOOD=000001 

(2252) 

03000 

104130 


JMS 

HLOOPS 





.EJECT 
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EAE-I I 


03001 

104157 

SIGNA 

JMS LOnpp 



03002 

207322 


LAC (0'’i0005 



03003 

652000 


LMQ 



03004 

207323 


LAC (777773 



03005 

664000 


GSM 



03006 

207211 


LAC (0) 



03007 

644323 


01 VS 



03010 

000004 


000004 



03011 

741400 


SiL 



03012 

740040 


hlt /bad 

link 

* gOoo link 

03013 

047156 


DAC ElAC 



03014 

547213 


SAO (030001 



03015 

741000 


SKP 



03016 

740040 


HLT /BAD 

AC, 

GOOD=000001 

03017 

641002 


LACQ 



03020 

047157 


OAC FIMQ 



03021 

547321 


SAD (777776 



03022 

741000 


SKP 



03023 

740040 


HLT /BAD 

MQ, 

G00D=777776 

03024 

104130 


JMS HLOOPS 



03025 

104157 

SIGNB 

JMS L00P2 



03026 

207324 


LAC (777772 



03027 

652000 


LMQ 



03030 

203034 


LAC .+4 



03031 

664000 


GSM 



03032 

207212 


LAC (777777 



03033 

644323 


DI VS 



03034 

000004 


000004 



03035 

741400 


SZL 



03036 

740040 


hlt /bad 

LINK 

» good link 

03037 

047156 


DAC FIAC# 



03040 

547321 


SAO (777776 



03041 

741000 


SKP 



03042 

7 400 40 


HLT /BAD 

AC, 

G00D=777776 

03043 

641002 


LACQ 



03044 

047157 


DAC FIMQ# 



03045 

547321 


SAD (777776 



03046 

741000 


SKP 



03047 

740040 


HLT /BAD 

MQ, 

G00D=777776 

03050 

104130 


JMS HLOOPS 






.EJECT 




(?265 ) 

(2271) 

(2276) 

(2311) 

(2315) 

(2322) 



03051 

1 04 1'sy 

SIGNC 

JMS L00P2 



0305? 

? 0 3 ? 4 


LAC (77777? 

) 


03053 



LMQ 



03054 

?0 '323 


LAC (777773 



03055 

664000 


GSM 



03056 

20721 2 


LAC (777777 



03057 

644323 


nivs 



03060 

000004 


000004 



03061 

741400 


SiL 



03062 

740040 


hlt /bad 

LINK 

» good link 

03063 

047156 


DAC FIAC 



03064 

547321 


SAD (777776 



03065 

741000 


SKP 



03066 

740040 


HLT /BAD 

AC, 

G00Dr777776 

03067 

641002 


LACQ 



03070 

047157 


OAC FIMQ 



03071 

547213 


SAD (000001 



03072 

741000 


SKP 



03073 

740040 


HLT /BAD 

MQ, 

GOOD=000001 

03074 

104130 


JMS HLOOPS 






.EJECT 




( 2335) 


( 2341 ) 


(2346) 
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EAE-1 I 


03075 

104157 

/DIVIDE SIGN TEST IDIVS 
STIDVS JMS L0nP2 


03076 

207212 

LAC (777777 


03077 

652000 

LMQ 


03100 

203104 

LAC ,+4 


03101 

664000 

GSN 


03102 

207322 

LAC (000005 


03103 

657323 

IDIVS 


03104 

000004 

000004 


03105 

741400 

S2L 


03106 

740040 

hLT /bad 

LINK 

03107 

047156 

OAC riAC# 


03110 

547213 

sad (000001 


03111 

741000 

SKP 


03112 

740040 

HLT /BAD 

AC, GOOO=000001 

03113 

641002 

LACQ 


03114 

047157 

DAC FIMQ# 


03115 

547213 

SAD (000001 


03116 

741000 

SKP 


03117 

740040 

HLT /BAD 

MQ, GOOO=000001 

03120 

104130 

JMS HLOOPS 


03121 

104157 

SIGNO JMS L00P2 


03122 

207211 

LAC (000000 


03123 

652000 

LMQ 


03124 

207321 

LAC (777776 


03125 

664000 

GSM 


03126 

207322 

LAC (000005 


03127 

657323 

IDIVS 


03130 

000004 

000004 


03131 

741400 

S2L 


03132 

740040 

HLT /BAD 

LINK, 

03133 

047156 

DAC FIAC 


03134 

547213 

SAD (000001 


03135 

7 41000 

SKP 


03136 

740040 

HLT /BAD 

AC, GOOD=00000l 

03137 

641002 

LACQ 


03140 

047157 

OAC FIMQ 


03141 

547321 

SAD (777776 


03142 

741000 

SKP 


03143 

740040 

HLT /BAD 

MQ, G00D=777776 

03144 

104130 

JMS HLOOPS 




.EJECT 



(2361 ) 


(2365) 


(2372) 


(2405) 


(2411 ) 


(2416) 
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EAE-I I 


03145 

03146 

03147 

03150 

03151 

03152 

03153 

03154 

03155 

03156 

03157 

03160 

03161 

03162 

03163 

03164 

03165 

03166 

03167 

03170 

03171 

03172 

03173 

03174 

03175 

03176 

03177 

03200 

03201 

03202 

03203 

03204 

03205 

03206 

03207 

03210 

03211 

03212 

03213 

03214 


104157 

207212 

652000 

203154 

664000 

207324 

657323 

000004 

741400 

740040 

047156 

547321 

741000 

740040 

641002 

047157 

547321 

741000 

740040 

104130 

104157 

207212 

652000 

207323 

664000 

207324 

657323 

000004 

741400 

740040 

047156 

547321 

741000 

740040 

641002 

047157 

547213 

741000 

740040 

104130 


S IGNE 


SIGNF 


JMS L00P2 
LAC (777777 
LMQ 

LAC .+4 
GSM 

LAC (777772 
IDI VS 
000004 
S2L 

HLT /BAD link (2431) 

DAC riAC# 

SAD (777776 
SKP 

HLT /BAD AC, G00D=777776 (2435) 

LACQ 

OAC FIMQ# 

SAD (777776 
SKP 

HLT /BAD MQ, G00D=777776 (2442) 

JMS HLOOPS 

JMS L0nP2 

LAC (777777 

LMQ 

LAC (777773 
GSM 

LAC (777772 
IDIVS 
000004 
SHL 

HLT /BAD LINK, (2455) 

DAC FIAC 
SAD (777776 
SKP 

HLT /BAD AC, G00D=777776 (2461) 

LACQ 

DAC FIMQ 
SAD (000001 
SKP 

HLT /BAD MO, 0000=000001 (2466) 

JMS HLOOPS 

.EJECT 
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EAE-I I 


) 




/DIVIDE SIGN TEST FDiVS 




03215 

104157 

STFDVS JMS L0nP2 




03216 

207211 

LAC (000000 




03217 

652000 

LMO 




03220 

203224 

LAC .+4 




03221 

664000 

GSM 




03222 

207322 

LAC (000005 




03223 

654323 

FRDIVS 




03224 

000004 

000004 




03225 

740400 

SNL 




03226 

740040 

hLT /BAD 

LINK 


(2501) 

03227 

047156 

OAC FIAC# 




03230 

547325 

SAD (777774 




03231 

741000 

SKP 




03232 

740040 

HLT 


/BAD 

AC, G00D=777774 

03233 

641002 

LACQ 




03234 

047157 

DAC FIMQ# 




03235 

547215 

SAD (000003 




03236 

741000 

SKP 




03237 

740040 

HLT /BAD 

MQ, 

GOODS 

000003 (2512) 

03240 

104130 

JMS HLOOPS 




03241 

104157 

SIGNG JMS L00P2 




03242 

207210 

LAC (525252 




03243 

652000 

LMQ 




03244 

207321 

LAC (777776 




03245 

664000 

GSM 




03246 

207322 

LAC (000005 




03247 

654323 

FRDIVS 




03250 

00(^001 

000001 




03251 

740400 

SNL 




03252 

740040 

hlt /bad 

LINK 


(2525) 

03253 

047156 

OAC FIAC 




03254 

5 47-326 

SAD (000016 




03255 

741000 

SKP 




03256 

7 400 40 

HLT 


/BAC 

AC, GOOD = 000016 

03257 

641002 

LACQ 




03260 

047157 

OAC FIMQ 




03261 

547320 

SAD (777775 




03262 

741000 

SKP 




03263 

740040 

HLT 


/BAD 

MQ, GOOD = 777775 

03264 

104130 

JMS HLOOPS 






.EJECT 





(2505) 


(2531) 


(2536) 
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03265 

03266 

03267 

03270 

03271 

03272 

03273 

03274 

03275 

03276 

03277 

03300 

03301 

03302 

03303 

03304 

03305 

03306 

03307 

03310 

03311 

03312 

03313 

03314 

03315 

03316 

03317 

03320 

03321 

03322 

03323 

03324 

03325 

03326 

03327 

03330 

03331 

03332 

03333 

03334 

03335 


104157 SIGNH 

207206 

652000 

203274 

664000 

207324 

654323 

000004 

740400 

740040 

047156 

547215 

741000 

740040 

641002 

047157 

547325 

741000 

740040 

104130 

104157 SIGNI 

207211 

652000 

207323 

664000 

207324 

654323 

000004 

740400 

740040 

047156 

547215 

741000 

740040 

641002 

047157 

547215 

741000 

740040 

104130 

104134 


JmS L00P2 
LAC (252525 
LMQ 

LAC . + 4 
GSM 

LAC (777772 
FRDIVS 
000004 
SNL 

HLT /bad link (2551) 

DAC FIAC# 

SAD (000003 
SKP 

HLT /BAD AC, GOOD = 000003 (2555) 

LACQ 

DAC FIMO# 

SAD (777774 
SKP 

HLT /BAD MO, G00D=777774 (2526) 

JMS HLOOPS 

JMS L00P2 

LAC (000000 

LMQ 

LAC (777773 
GSM 

LAC (777772 
FRDIVS 
000004 
SNL 

HLT /BAD link (2575) 

DAC FIAC 
SAD (000003 
SKP 

HLT /BAD AC, GOOD=000003 (2601) 

LACQ 

DAC FIMQ 
SAP (000003 
SKP 

HLT /BAD MO, GOOD=000003 (2606) 

JMS HLOOPS 
JMS HLOOPM 
.EJECT 
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/MULTIPLY divide TEST 

/multiply test using 22 shifts 


03336 

104162 


JMS 

L0nP4 


03337 

104157 

MULTST 

JMS 

L00P2 


03340 

207212 


lac 

(777777 


03341 

652000 


LMq 



03342 

207210 


LAC 

(525252 


03343 

653122 


MUL 



03344 

000001 


000001 


03345 

047156 


OAC 

Fl AC# 


03346 

547211 


SAO 

( 000000 


03347 

741000 


SKp 



03350 

740040 


HLT 

/BAD 

AC 

03351 

641002 


LACQ 



03352 

047157 


OAC 

FIMQ# 


03353 

547210 


SAD 

(525252 


03354 

741000 


SKP 



03355 

740040 


HLT 

/BAD 

MO 

03356 

104130 


JMS 

HLOOPS 


03357 

104157 

MULA 

JMS 

L00P2 


03360 

207212 


LAC 

( 777777 


03361 

652000 


LMQ 



03362 

207212 


LAC 

(777777 


03363 

653122 


MUL 



03364 

100000 


100000 


03365 

047156 


OAC 

fiac 


03366 

547247 


SAD 

(077777) 


03367 

741000 


SKp 



03370 

740040 


HLT 

/BAD 

AC 

03371 

641002 


LACQ 


03372 

047157 


OAC 

FIMQ 


03373 

547327 


SAO 

( 700000 


03374 

741000 


SKP 



03375 

740040 


HLT 

/BAD 

MO 

03376 

104130 


JMS 

HLOOPS 





.EJECT 



GOOD = P)00000 


G00D=525252 


GOODr077777 


GOOD=700000 


(2623) 


(2630) 


(2643) 


(2650) 
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03377 104157 MULB 

03400 207212 

03401 652000 

03402 207210 

03403 653122 

03404 777777 

03405 047156 

03406 547330 

03407 741000 

03410 740040 

03411 641002 

03412 047157 

03413 547331 

03414 741000 

03415 740040 

03416 104130 

03417 104157 MULC 

03420 207212 

03421 652000 

03422 207212 

03423 653122 

03424 252525 

03425 047156 

03426 547332 

03427 741000 

03430 740040 

03431 641002 

03432 047157 

03433 547333 

03434 741000 

03435 740040 

03436 104130 


JMS LOOP? 

LAC (777777 
LMQ 

LAC (525252 
MUL 

777777 
DAC FIAC# 

SAD (525251 
SKP 

HLT /BAD AC, G00D=525251 (2663) 

LACQ 

DAC FIMQ# 

SAD (252526 
SKP 

HLT /BAD MQ, 0000=252526 (2670) 

JMS HLOOPS 
JMS LOOP? 

LAC (777777 

LMQ 

LAC (777777 
MUL 

252525 
DAC FIAC 
SAD (252524) 

SKP 

HLT /BAD AC, 0000=252524 (2703) 

LACQ 

DAC FIMQ 
SAD (525253) 

SKP 

HLT /BAD MO, 0000=525253 (2710) 

JMS HLOOPS 

.EJECT 
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03437 

104157 

MULD JMS 

LOOP2 



03440 

207212 

LAC 

( 777777 



03441 

652000 

LMQ 




03442 

207213 

LAC 

(000001 



03443 

653122 

MUL 




03444 

777777 

777777 



03445 

047156 

DAC 

F I AC# 



03446 

547211 

SAD 

( 000000 ) 



03447 

741000 

SKp 




03450 

740040 

HLT 

/BAD 

AC, 

GOODS000000 

03451 

641002 

LACQ 



03452 

047157 

DAC 

FIMQ# 



03453 

547212 

SAD 

(777777) 



03454 

741000 

SKP 




03455 

740040 

HLT 

/BAD 

MQ, 

G00D=777777 

03456 

104130 

JMS 

HLOOPS 



03457 

104157 

MULE JMS 

LOOP2 



03460 

207212 

LAC 

(777777 



03461 

652000 

LMQ 




03462 

207212 

LAC 

(777777 



03463 

653122 

MUL 




03464 

000001 

000001 



03465 

047156 

DAC 

FIAC 



03466 

547211 

SAD 

( 000000 



03467 

741000 

SKp 




03470 

740040 

HLT 

/BAD 

AC, 

GOODS000000 

03471 

641002 

LACQ 



03472 

047157 

DAC 

FIMQ 



03473 

547212 

SAD 

(777777 



03474 

741000 

SKP 




03475 

740040 

HLT 

/BAD 

MO, 

G00D=777777 

03476 

104130 

JMS 

HLOOPS 





/POP-15 EAE II 
/ 

- TAPE 

3 



/DIVIDE Test using 23 shifts 
/ 


03477 

104157 

OIVTST 

JMS LOOP2 



03500 

207211 


LAC (000000 



03501 

652000 


LMQ 



03502 

207211 


LAC (000000 



03503 

640323 


DI V 



03504 

000000 


000000 



03505 

047156 


DAC FIAC# 



03506 

547211 


SAD (000000 



03507 

741000 


SKP 



03510 

740040 


HLT /BAD 

AC, 

GOOD=000000 

03511 

641002 


LACQ 



03512 

047157 


DAC FIMQ# 



03513 

547317 


SAD (000002 



03514 

741000 


SKP 



03515 

740040 


HLT /BAD 

MQ, 

GOOD=000002 

03516 

104130 


JMS HLOOPS 



03517 

104157 

DIVA 

JMS L00P2 



03520 

207212 


LAC (777777 



03521 

652000 


LMQ 




(2723) 


(2730) 


(2743) 


(2750) 


(2763) 


(2770 ) 
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03522 

207334 

LAC (677777 

03523 

640323 

ni V 

03524 

000000 

000000 

03525 

047156 

DAC FIAC 

03526 

547253 

SAD (377777 

03527 

741000 

SKP 

03530 

740040 

HLT 

03531 

641002 

LACQ 

03532 

047157 

DAC FIMQ 

03533 

547321 

SAD (777776 

03534 

741000 

SKP 

03535 

740040 

HLT 

03536 

104130 

JMS HLnOPS 
.EJECT 


/BAD AC, G00D = 377777 ( 3«^03) 


/BAD MQ, G00D=777776 (3010) 
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.EJECT 


/BAD AC, G00D = 37777i (3<?23) 


/BAD MO, G00D = 777776 (3f’3(3) 


GOOD=B00000 (3043) 


GOODS000000 


( 3050 ) 
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03577 104157 

03600 207334 

03601 65?000 

?3602 207211 

03603 640323 

03604 677777 

03605 047156 

03606 547211 

03607 741000 

03610 740040 

03611 641002 

03612 047157 

03613 547213 

03614 741000 

03615 740040 

03616 104130 

03617 104157 

03620 207333 

03621 652000 

03622 207332 

03623 640323 

03624 252525 

03625 047156 

03626 547211 

03627 741000 

03630 740040 

03631 641002 

03632 047157 

03633 547212 

03634 741000 

03635 740040 

03636 104130 


DIVD 


DIVE 


JMS L00P2 /SUB-SUB 

LAC (677777 

LMQ 

LAC (000000 
DIV 

677777 
DAC FIAC# 

SAD (000000 
SKP 

HLT /BAD AC, GOOD=000000 (3063) 

LACQ 

DAC FIMQ# 

SAD (000001 
SKP 

HLT /BAD MO, GOOD=000001 (3070) 

JMS HLOOPS 

JMS L00P2 /ADD'ADD 

LAC (525253) 

LMQ 

LAC (252524) 

DIV 

252525 
DAC FIAC 
SAD (000000 
SKP 

HLT /BAD AC, GOOD=000000 (3103) 

LACQ 

DAC FIMQ 
SAD (777777 
SKP 

HLT /BAD MQ, G00D=777777 (3110) 

JMS HLOOPS 

.EJECT 
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e)3637 

104157 

DIVE 

JMS 

L00P2 


/ADD-SUB-ADD-SUB 

PI3640 

207333 


LAC 

(525253) 



03641 

652000 


LMQ 




03642 

207332 


LAC 

(252524) 



03643 

640323 


ni V 




03644 

777777 


777777 



03645 

047156 


HAC 

p I AC# 



03646 

547211 


SAD 

( 0(^0000 



03647 

741000 


SKp 




03650 

740040 


HLT 

/BAD 

A C » 

GOOO=000000 (3123) 

03651 

641002 


LACQ 



03652 

047157 


DAC 

FIMQ# 



03653 

547206 


SAD 

(252525 



03654 

741000 


SKP 




03655 

740040 


HLT 

/BAD 

MQ, 

G00D=252525 (3130) 

03656 

104130 


JMS 

HLOOPS 



03657 

104157 

DIVG 

JMS 

L00P2 



03660 

207331 


LAC 

<252526 


/ADD-SUB-ADD-SUB 

03661 

652000 


LMQ 




03662 

207330 


LAC 

(525251 



03663 

640323 


OIV 




03664 

777777 


777777 



03665 

047156 


DAC 

FIAC 



03666 

547211 


SAD 

(0) 



03667 

741000 


SKP 




03670 

740040 


HLT 

/BAD 

AC, 

GOODS000000 (3143) 

03671 

641002 


LACQ 



03672 

047157 


DAC 

FIMQ 



03673 

547210 


SAD 

(525252 



03674 

741000 


SKP 




03675 

7 40040 


HLT 

/BAD 

MQ, 

G00Ds525252 (3150) 

03676 

104130 


JMS 

HLOOPS 



03677 

104134 


JMS 

HLOOPM 



03700 

104162 


JMS 

L00P4 




.EJECT 
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/MUL and 
/ 


03701 

03702 

03703 

03704 

03705 

03706 

03707 

03710 

03711 

03712 

03713 

03714 

03715 

03716 

03717 

03720 

03721 

03722 

03723 

03724 

03725 

03726 

03727 

03730 

03731 

03732 

03733 

03734 

03735 

03736 

03737 

03740 

03741 

03742 

03743 

03744 

03745 

03746 

03747 

03750 

03751 

03752 

03753 

03754 


104157 
207212 
652000 
207206 
673102 
777777 
673102 
777777 
673102 
777777 
673102 
777777 
673102 
777777 
047156 
547214 
741000 
740040 
641002 
047157 
547336 
741000 
7400 40 
207206 
653122 
520000 
653122 
520000 
653122 
520000 
653122 
520000 
653122 
520000 
047156 
547337 
741000 
740040 
641002 
047157 
547340 
741000 
740040 
104130 


MSPEED 


DIV instruction done BACK TO RACK 

/SPEED multiply 
JMS L00P2 
LAC (777777 
LMQ 

lac (252525 
MUL -20 
777777 
MUL -20 
777777 
MUL -20 
777777 
MUL -20 
777777 
MUL -20 
777777 
DAC flAC# 

SAD (577777) 

SKp 

HLT /BAD ACr G00D=577777 (3175) 

LACQ 

OAC FIMQ# 

SAD (337777) 

SKP 

HLT /BAD MO, G00D=337777 (3202) 

LAC (252525 

WUL 

520000 

MUL 

520000 

MUL 

520000 

MUL 

520000 

MUL 

520000 
OAC FIAC 
SAD (024613) 

SKp 

HLT /BAD AC, GOOD=0246l3 (3221) 

LACQ 

OAC FIMQ 
SAD (140000) 

SKP 

HLT /BAD MO, GOOD=i40000 (3226) 

JMS HLOOPS 

.EJECT 
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/SPEED divide 


/ 


03755 

I 04 I 57 

DSPEFD 

JMS L0nP2 



03756 

207212 


LAC (777777 



03757 

652000 


LMQ 



03760 

207206 


LAC (252525 



03761 

660302 


OlV -21 



03762 

000002 


000002 



03763 

660302 


DiV -21 



03764 

000002 


000002 



03765 

660302 


DiV -21 



03766 

000002 


000002 



03767 

660302 


DiV -21 



03770 

000002 


0000002 



03771 

660302 


DIV -21 



03772 

000002 


000002 



03773 

047156 


DAC FIAC 



03774 

547341 


SAD (525005 



03775 

741000 


SKP 



03776 

740040 


HLT 

/BAD 

AC, GOOD=525005 

03777 

641002 


LACQ 



04000 

047157 


DAC FIMQ 



04001 

547342 


SAD (777252 



04002 

741000 


SKP 



04003 

740040 


HLT 

/BAD 

MQ, GD0D=777252 

04004 

104130 


JMS HLOOPS 



04005 

104157 


JMS L00P2 



04006 

207206 


LAC (252525 



04007 

652000 


LMQ 



04010 

207206 


LAC (252525 



04011 

640323 


ni V 



04012 

000052 


000052 



04013 

640323 


DIV 



04014 

000052 


000052 



04015 

640323 


Dl V 



04016 

000052 


000052 



04017 

640323 


DIV 



04020 

000052 


000052 



04021 

640323 


DIV 



04022 

000052 


000052 



04023 

047156 


DAC FIAC 



04024 

547343 


SAD (002651 



04025 

741000 


SKp 



04026 

740040 


HLT 

/BAD 

AC, GnOD=00265l 

04027 

641002 


LACQ 



04030 

047157 


DAC FIMQ 



04031 

547344 


SAD (253252 



04032 

741000 


SKP 



04033 

740040 


HLT 

/BAD 

MO, G00n=253252 

04034 

104130 


JMS HLOOPS 






.EJECT 




(3251) 


(3256) 


(3301) 


(3306) 



F75GE 51 EAE- 

I I 







/SPEED multiply aND DIVIDE 


04035 

104157 

/ 

SPMUQV 

JMS L00P2 


04036 

207212 


LAC (777777 


04037 

652000 


LMQ 


04040 

207251 


LAC (177777 


04041 

664000 


GSM 


04042 

653122 


MUL 


04043 

252525 


252525 


04044 

640323 


DIV 


04045 

252525 


252525 


04046 

047156 


DAC FIAC 


04047 

547211 


SAD (0) 


04050 

741000 


SKp 


04051 

740040 


HLT /BAD AC, GOOD=000000 (3324) 


04052 

641002 


LACQ 


04053 

047157 


DAC FIMQ 


04054 

547251 


SAD (177777) 


04055 

741000 


SKP 


04056 

740040 


HLT /BAD MQ, G00D=i77777 (3331) 


04057 

104130 


JMS HLOOPS 


04060 

104157 


JMS L00P2 


04061 

207247 


LAC (077777 


04062 

653122 


MUL 


04063 

252525 


252525 


04064 

640323 


DIV 


04065 

000025 


000025 


04066 

653122 


MUL 


04067 

252525 


252525 


04070 

640323 


DIV 


04071 

000025 


000025 


04072 

653122 


MUL 


04073 

252525 


252525 


04074 

640323 


DIV 


04075 

000252 


000252 


04076 

653122 


MUL 


04077 

252525 


252525 


04100 

640323 


DIV 


04101 

000252 


000252 


04102 

653122 


MUL 


04103 

252525 


252525 


04104 

640323 


DIV 


04105 

000052 


000052 


0 4106 

047156 


DAC FIAC 


04107 

547345 


SAD (405476 


04110 

741000 


SKp 


04111 

740040 


HLT /bad AC, GOOD=405476 

(3364) 

04112 

641002 


LACQ 


04113 

047157 


DAC FIMQ 


04114 

547346 


SAD (117162 


04115 

741000 


SKP 


04116 

740040 


HLT /BAD MO, G00D=117162 

(3371 

04117 

104130 


JMS HLOOPS 


04120 

104134 


JMS HLOOPM 


04121 

741000 


SKP 
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.EJECT 



FACE 53 
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04122 

777700 

LOOPA 

777700 

04123 

444122 


IS? .-1 

04124 

600246 


JMP NEAE 

04125 

207347 


LAC (777700 

04126 

044122 


DAC LOOPA 

04127 

620203 


JMP* AHVP 
.EJECT 



PAGE 54 


EAE-I I 


/increment error location on error 


/ 


00020 


/ 

.LOG 20 


00020 

740040 


HLT 


00021 

750001 


CLA !CMA 


00022 

340020 


tad 20 

/subtract 1 FROM (20) 

00023 

040025 


DAC .+2 


00024 

741000 


SKp 


00025 

740000 


NOP 

/ERROR location 

00026 

460025 


I SZ* . -1 

/INCREMENT 

00027 

620020 

y 

JMP* 20 

/EXIT 



/ 

/small 

LOOP halt 


04130 



.LOC LOOPA+6 


04130 

740040 

HLOOPS 

HLT 


04131 

104202 


JMS HLTS 


04132 

104226 


JMS LOOPS 


04133 

624130 


JMP* HLOOPS 




/ 

/MEDIUM 

HLT LOOP 


04 I 34 

740040 

HLOOPM 

HLT 


04135 

104212 


JMS HLTM 


04136 

104234 


JMS LOOPM 


04137 

624134 

y 

JMP* HLOOPM 




/LARGE 

HLT LOOP 


04 I 40 

740040 

HLOOPL 

HLT 


04141 

104143 


JMS LOOPL 


04142 

624140 

/ 

JMP* HLOOPL 


04143 

740000 

/ 

LOOPL 

NOP 


04144 

750004 


LAS 


04145 

507350 


AND (010000 

/SWITCH 5 NOT SET 

04146 

741200 


SNA 


04147 

624164 


JMP* L00P5 

/LOOP 

04150 

624143 


JMP* LOOPL 

/CONTINUE 

04151 

740040 

SWIT6 

HLT 


04152 

750004 


LAS 


04153 

507254 


and (400000 

/SWITCH ZERO 

04154 

740200 


SZA 


04155 

740040 


HLT 

/PRINT routine 

04156 

624151 


JMP* SWIT6 

/CONTINUE 

04157 

000000 

y 

L00P2 

0 


04160 

744000 


CLL 


04161 

624157 

y 

JMP* .-2 

/SCOPE LOOP tag 

04162 

000000 

L 00 P 4 

0 

/subroutine Tag 

04163 

624162 


JMP* .-1 


04164 

000000 

L00P5 

0 

/routine tag 

04165 

624164 


JMP* .-1 





.EJECT 
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04166 

04167 

04170 

04171 

04172 

04173 

04174 

04175 

04176 

04177 

04200 

04201 

04202 

04203 

04204 

04205 

04206 

04207 

04210 

04211 

04212 

04213 

04214 

04215 

04216 

04217 

04220 

04221 

04222 

04223 

04224 

04225 

04226 

04227 

04230 

04231 

04232 

04233 

04234 

04235 

04236 

04237 

04240 

04241 


104166 

044200 

224166 

044201 

204200 

740001 

524201 

344200 

444166 

624166 

000000 

000000 

7 40000 
750004 
507351 
741200 
604211 
204202 
740040 
624202 

740000 

750004 

507352 

740200 

740040 

624212 

740000 

750004 

507353 

740200 

740040 

624220 

740000 

750004 

507354 

744200 

624157 

624226 

740000 

750004 

507355 

740200 

624162 

624234 


lOR 


/ 

hlts 


/ 

HLTM 


/ 

HLTL 


/ 

LOOPS 


/ 

LOOPM 


JMS . 

DAC .+11 
LAC* lOR 
DAC .+10 
LAC .+6 
CMA 

AND* .+5 
TAD .+3 
ISZ lOR 
JMP* lOR 
0 
0 


NOP 

LAS 

And (200000 

/swi 


SNA 

JMP .+3 

LAC HLTS 

HLT 

JMP* HLTS 

/CONTINUE 


NOP 

LAS 

AnO (040000 

/SW3 


SZA 

HLT 

JMP* .-5 

/CONTINUE 


NOP 

LAS 

And (004000 

/SW6 


SZA 

HLT 

JMP* .-5 

/CONTINUE 


NOP 

LAS 

and (100000 

/SWjTCh 2 


SZA!CLL 

JMP* L00P2 


/LOOP 

JMP* LOOPS 


/CONTINUE 

NOP 

LAS 

/SWITCH 4 


and (020000 

/switch 4 


SZA 

JMp* L00P4 


/LOOP 

JMP* LOOPM 


/CONTINUE 
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/LOOK 

UP 

OR halt 


0424 ? 

740000 

SWIT 7 


NOP 


04243 

750004 



LAS 


04244 

507356 



and (002000 

/switch 7 

04245 

740200 



SEA 


04246 

444242 



IS2 SWIT7 

/IF SET Go To P+2 

04247 

624242 



JMP* S^jlT? 

/IF NOT set go to P*i 



/FILL 

error locations with Eero 

04250 

740000 

FILEER 


NOP 


04251 

205023 



LAC length 


04252 

047142 



OAC AOOCT# 

/FIELD COUNTER 

04253 

207357 



LAC (LAC ERWOR 


04254 

044255 



DAC .+1 


04255 

204376 



LAC ErwOR 


04256 

047145 



OAC ctaoo# 


04257 

167145 



02M* CTaDD 

/CURRENT address 

04260 

444255 



ISE .-3 


04261 

447142 



ISE AOOCT 


04262 

604255 



JMP .-5 


04263 

624250 



JMP* FILEER 

/EXIT 



/FILL 

error location with hlt 


04264 

740000 

FILHLT 


NOP 


04265 

205023 



LAC LENGTH 


04266 

047142 



OAC AOOCT 

/FIELD COUNTER 

04267 

207360 



LAC (LAC ERWOR 


04270 

044271 



OAC .+1 


04271 

204376 



LAC ErwOr 

/address of LHE 

04272 

047145 



OAC CTAOD 


04273 

207361 



LAC (HLT 


04274 

067145 



OAC* CTaDO 

/current address 

04275 

444271 



ISE .-4 


04276 

447142 



ISE AOOCT 


04277 

604271 



JMP .-6 


04300 

624264 



JMP* FILHLT 

/EXIT 



/SET bit 

IN bitword if error 


04301 

740000 

setbit 


NOP 


04302 

204376 



LAC ERWOR 


04303 

047145 



OAC CTAOD 


04304 

227145 



LAC* Ctaoo 

/current address of error word 

04305 

741200 



SNA 


04306 

604313 



JMP .+5 


04307 

207155 



LAC ERRBIT# 


04310 

104166 



JMS lOR 


04311 

740040 



XX 

/MODIFIED 

04312 

064311 



DAC* .-1 


04313 

444302 



ISE SET8IT+1 


04314 

624301 



JMP* SETBIT 

/EXIT 
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/SCAN FOR 00 OR 77 SET FLAG ON ERROR 


04313 

740000 

SCAN 

NOP 


04316 

750000 


CLA 


04317 

047154 


DAC ERFLAG 


04320 

047143 


DAC ASTRIC 


04321 

205023 


LAC length 


0432? 

047142 


DAC AOnCT 


04323 

207362 


LAC (LAC ERWOR 


04324 

044325 


DAC .+1 


04325 

204376 


LAC ERWOR 


04326 

047145 


DAC CTaOD 


04327 

227145 


LAC* CTADO 


04330 

547211 


SAD (0 

/CHECK FOR 2ERO 

04331 

604336 


JMP .+5 

/YES 

04332 

547363 


saq (100 /Check 

FOR 100 

04333 

741000 


SKp 


04334 

447143 


IS? ASTRIC# 

/INTERMITTENT 

04335 

447154 


IS2 ERFLAG# 

/SET FLAG 

04336 

444325 


IS? .-11 


04337 

447142 


IS2 addct 


04340 

604325 


JMP .-13 


04341 

624315 


JMP* SCAN 




/ 

/CHECK 

FLAG 


04342 

740000 

CKFLAG 

NOP 


04343 

207154 


LAC ERFLAG 

/HOW many test failed 

04344 

741200 


SNA 


04345 

625024 


JMP* BEGIN 

/NO ERROR 

04346 

624342 


JMP* CKFLAG 

/# OF BIT WORDS 



/ 

/set up 

counts and counters 


04347 

740000 

setup 

NOP 


04350 

207364 


LAC (WORDA 

/iST bit storage location 

04351 

044311 


DAC SET8IT+10 

/CURRENT WORD ADESS 

04352 

207365 


LAC (777755 


04353 

047144 


DAC BITCT 

/BIT COUNTER 

04354 

207254 


LAC (400000 

/INITIAL BIT 

04355 

047155 


DAC ERRbIT 

/current bit position 

04356 

207366 


LAC (lAC ERWOR 

/lhE address or RiEld 

04357 

044302 


DAC sEtBIT+I 

/COuNtRR 

04360 

205023 


LAC LENGTH 

/length or field 

04361 

047142 


DAC addct 

/FIELD COUNTER 

04362 

624347 


JMP# SETUP 

/EXIT 


.EJECT 
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/rotate bit and check word count 
/ 


04363 

740000 

RBCW 

NOP 


04364 

207155 


LAC 

ERRBI T 

04365 

740020 


RAR 


04366 

447144 


IS? 

BITCT# 

04367 

604374 


JMP 

. +5 

04370 

444311 


IS? 

SETBIT+ 

04371 

207365 


LAC 

( 777755 

04372 

047i44 


OAC 

BITCT 

04373 

207254 


LAC 

(400000 

04374 

047155 


OAC 

ERRBIT 

04375 

624363 


JMP« 

RBCW 




.EJECT 
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04376 000263 

04377 000267 

04400 000305 

04401 000311 

04402 000327 

04403 000333 

04404 000351 

04405 000355 

04406 000373 

04407 000377 

04410 000415 

04411 000421 

04412 000436 

04413 000442 

04414 000460 

04415 000464 

04416 000502 

04417 000506 

04420 000524 

04421 000530 

04422 000546 

04423 000552 

04424 000570 

04425 000574 

04426 000612 

04427 000616 

04430 000634 

04431 000640 

04432 000656 

04433 000662 

04434 000700 

04435 000704 

04436 000722 

04437 000726 

04440 000745 

04441 000751 

04442 000767 

04443 000773 

04444 001011 

04445 001015 

04446 001033 

04447 001037 

04450 001055 

04451 001061 

04452 001076 

04453 001102 

04454 001120 

04455 001124 


ERWOR NEAE 15 

l^JEAE 21 
NEAE 37 
NEAE 43 
NEAE 61 
NEAE 65 
NEAE 103 
NEAE 107 
NEAR 13 
NEAR 17 
NEAR 35 
NEAR 41 
NEAR 56 
NEAR 62 
NEAR 100 
NEAR 104 
NMUL 13 
NMUL 17 
NMUL 35 
NMUL 41 
NMUL 57 
NMUL 63 
NMUL 101 
NMUL 105 
NMULS 13 
NMULS 17 
NMULS 35 
NMULS 41 
NMULS 57 
NMULS 63 
NMULS 101 
NMULS 105 
NDIV 13 
NDIV 17 
NDIV 36 
NDIV 42 
NDIV 60 
NDIV 64 
NDIV 102 
NDIV 106 
NDIVS 13 
NDIVS 17 
NDIVS 35 
NDIVS 41 
NDIVS 56 
NDIVS 62 
NDIVS 100 
NDIVS 104 
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04456 

001142 

NIDIV 13 

04457 

001146 

NIOIV 17 

04460 

001164 

NIOIV 35 

04461 

001170 

NIOIV 41 

04462 

001206 

NIOIV 57 

04463 

001212 

NIOIV 63 

04464 

001230 

NIOIV 101 

04465 

001234 

NIOIV 105 

04466 

001252 

NIOIVS 13 

04467 

001256 

NIOIVS 17 

04470 

001274 

NIOIVS 35 

0447l 

001300 

NIOIVS 41 

04472 

001316 

NIOIVS 57 

04473 

001322 

NIOIVS 63 

04474 

001340 

NIOIVS 101 

04475 

001344 

NIOIVS 105 

04476 

001362 

NFROIV 13 

04477 

001366 

NFROIV 17 

04500 

001404 

NFROIV 35 

04501 

001410 

NFROIV 41 

04502 

001426 

NFROIV 57 

04503 

001432 

NFROIV 63 

04504 

001450 

NFROIV 101 

04505 

001454 

NFROIV 105 

04506 

001472 

NFROVS 13 

04507 

001476 

NFRDVS 17 

04510 

001514 

NFROVS 35 

04511 

001520 

NFRDVS 41 

04512 

001536 

NFRDVS 57 

04513 

001542 

NFROVS 63 

04514 

001560 

NFROVS 101 

04515 

001564 

NFROVS 105 

04516 

001600 

SHCTl 7 

04517 

001605 

SHCTi 14 

04520 

001610 

SHCTl 17 

04521 

001621 

SHCT2 7 

04522 

001626 

SHCT2 14 

04523 

001631 

SHCT2 17 

04524 

001642 

SHCT3 7 

04525 

001647 

SHCT3 14 

04526 

001652 

SHCT3 17 

04527 

001663 

SHCT4 7 

04530 

001670 

SHCT4 14 

04531 

001673 

SHCT4 17 
.EJECT 
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04532 

001704 

SHCT5 7 

04533 

001711 

SHCT5 14 

04534 

001714 

SHCT5 17 

04535 

001725 

SHCT6 7 

04536 

001732 

SHCT6 14 

04537 

001735 

SHCT6 17 

04540 

001746 

SHCT7 7 

04541 

001753 

SHCT7 14 

04542 

001756 

SHCT7 17 

04543 

001767 

SHCT10 7 

04544 

001774 

SHCT10 14 

04545 

001777 

SHCT10 17 

04546 

002010 

SHCTii 7 

04547 

002015 

SHCTii 14 

04550 

002020 

SHCTii 17 

04551 

002031 

SHCT12 7 

04552 

002036 

SHCT12 14 

04553 

002041 

SHCT12 17 

04554 

002052 

SHCT13 7 

04555 

002057 

SHCT13 14 

04556 

002062 

SHCT13 17 

04557 

002073 

SHCT14 7 

04560 

002100 

SHCT14 14 

04561 

002103 

SHCT14 17 

04562 

002114 

SHCT15 7 

04563 

002121 

SHCT15 14 

04564 

002124 

SHCT15 17 

04565 

002135 

SHCT 16 7 

04566 

002142 

SHCT 16 14 

04567 

002145 

SHCT 16 17 

04570 

002156 

SHCT17 7 

04571 

002163 

SHCT17 14 

04572 

002166 

SHCT17 17 

04573 

002177 

SHCT 20 7 

04574 

002204 

SHCT20 14 

04575 

002207 

SHCT20 17 

04576 

002220 

SHCT 2 I 7 

04577 

002225 

SHCT21 14 

04600 

002230 

SHCT21 17 

04601 

002241 

SHCT 22 7 

04602 

002246 

SHCT22 14 

04603 

002251 

SHCT 22 17 


/ 

.EJECT 
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04604 

002266 

nsci 10+1 

04605 

002273 

nsci 15+1 

04606 

002306 

OSCl 27+2 

04607 

002313 

OSCI 34+2 

04610 

002326 

DSCl 46+3 

04611 

002333 

nSCl 53+3 

04612 

002346 

nSCl 65+4 

04613 

002353 

OSCl 72+4 

04614 

002366 

DSCl 104+5 

04615 

002373 

OSCl 111+5 

04616 

002406 

nSCi 123+6 

04617 

002413 

OSCl 130+6 

04620 

002426 

OSCl 142+7 

04621 

002433 

OSCl 147+7 

04622 

002446 

OSCl 161+10 

04623 

002453 

OSCl 166+10 

04624 

002466 

OSCl 200+11 

04625 

002473 

OSCl 205+11 

04626 

002506 

OSCl 217+12 

04627 

002513 

OSCl 224+12 

04630 

002526 

DSCl 236+13 

04631 

002533 

DSCl 243+13 

04632 

002546 

DSCl 255+14 

04633 

002553 

DSCl 262+14 

04634 

002566 

OSCl 274+15 

04635 

002573 

DSCl 301+15 

04636 

002606 

DSCl 313+16 

04637 

002613 

OSCl 320+16 

04640 

002626 

OSCl 332+17 

04641 

002633 

OSCl 337+17 

04642 

002646 

DSCl 351+20 

04643 

002653 

DSCl 356+20 

04644 

002666 

DSCl 370+21 

04645 

002673 

DSCl 375+21 

04646 

002705 

STMUL 6 

04647 

002714 

STMUL 15 

04650 

002724 

STMULS 6 

04651 

002734 

STMULS 16 

04652 

002743 

STMULS 25 

04653 

002753 

STMULS 35 

04654 

002766 

STDIVS 11 

04655 

002772 

STOIVS 15 

04656 

002777 

STDIVS 22 

04657 

003012 

SIGNA 11 

04660 

003016 

SIGNA 15 

04661 

003023 

SIGNA 22 
.EJECT 
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04662 

003036 

SIGNB 11 

04663 

003042 

SIGNR 15 

04664 

003047 

SIGNB 22 

04665 

003062 

SIGNC 11 

04666 

003066 

SIGNC 15 

04667 

003073 

SIGNC 22 

04670 

003106 

STIOVS 11 

04671 

003112 

STIOVS 15 

04672 

003117 

STIOVS 22 

04673 

003132 

SIGND 11 

04674 

003136 

SIGNO 15 

04675 

003143 

SIGNO 22 

04676 

003156 

SIGNE 11 

04677 

003162 

SIGNE 15 

04700 

003167 

SIGNE 22 

04701 

003202 

SIGNE 11 

04702 

003206 

SIGNE 15 

04703 

003213 

SIGNE 22 

04704 

003226 

STEOVS 11 

04705 

003232 

STEOVS 15 

04706 

003237 

STEOVS 22 

04707 

003252 

SIGNG 11 

04710 

003256 

SIGNG 15 

04711 

003263 

SIGNG 22 

04712 

003276 

SIGNH 11 

04713 

003302 

SIGNH 15 

04714 

003307 

SIGNH 22 

04715 

003322 

SIGNI 11 

04716 

003326 

SIGNI 15 

04717 

003333 

SIGNI 22 

04720 

003350 

MULTST 11 

04721 

003355 

MULTST 16 

04722 

003370 

MULA 11 

04723 

003375 

MULA 16 

04724 

003410 

MULB 11 

04725 

003415 

MULB 16 

04726 

003430 

MULC 11 

04727 

003435 

MULC 16 

04730 

003450 

MULO 11 

04731 

003455 

MULO 16 

04732 

003470 

MULE 11 

04733 

003475 

MULE 16 

04734 

003510 

DIVTST 11 

04735 

003515 

OIVTST 16 

04736 

003530 

DIVA 11 

04737 

003535 

DIVA 16 

04740 

003550 

OIVB 11 

04741 

003555 

niVB 16 

04742 

003570 

Dive 11 

04743 

003575 

Dive 16 



.EJECT 
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04744 

003610 


nivD 11 

04745 

003615 


nivo 16 

04746 

003630 


nivE 11 

04747 

003635 


niVE 16 

04750 

003650 


nivF 11 

04751 

003655 


nivr 16 

04752 

003670 


OIVG 11 

04753 

003675 


OIVG 16 

04754 

003722 


MSPEEO 21 

04755 

003727 


HSPEEO 26 

04756 

003746 


MSPEEO 45 

04757 

003753 


MSPEEO 52 

04760 

003776 


DSPEEO 21 

04761 

004003 


OSPEEO 26 

04762 

004026 


OSPEEO 51 

04763 

004033 


OSPEEO 56 

04764 

004051 


SPMUOV 14 

04765 

004056 


SPMUOV 21 

04766 

004111 


SPMUOV 54 

04767 

004116 


SPMUOV 61 

04770 

004116 


SPMUOV 61 

04771 

004116 


SPMUOV 61 

04776 



.LOG ERWOR+400 

04776 

000000 

WORDA 

0 /BUFFER FOR BIT WOROS 

05023 



.LOG WORDA+25 

05023 

777406 

LENGTH 

777406 
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05024 

740000 

BEGIN 

NOP 


05025 

740000 


NOP 


05026 

605047 


JMP 

fact 

05027 

605031 

/ 

JMP 

LOOKUP 

05030 

000000 

/ 

0 


05031 

104250 

LOOKUP 

JMS 

FILZeR 

05032 

105052 


JMS 

CL8UE 

05033 

100203 


JMs 

ADVP 

05034 

104315 


JMS 

SCAN 

05035 

104342 


JMS 

CKFLAG 

05036 

205023 


LAC 

length 

05037 

045030 


OAC 

LOOKUP-1 

05040 

104347 


JMS 

setup 

05041 

104301 


JMS 

setbit 

05042 

104363 


JMS 

rbcw 

05043 

445030 


ISZ 

LOOKUP-1 

05044 

605041 


JMP 

.-3 

05045 

105064 


JMS 

STaBUF 

05046 

625024 


JMP* 

BEGIN 

05047 

104264 

fact 

JMS 

FILHLT 

05050 

100203 


JMS 

AOVP 

05051 

625024 

/ 

JMP* 

Begin 



/ 

/cl buffer 


05052 

740040 

CLBUF 

HLT 


05053 

207364 


LAC 

( WORDA 

05054 

045063 


DAC 

CLBUF+11 

05055 

207370 


LAC 

( WORDA+24 

05056 

165063 


OZM* 

CLBUF+11 

05057 

545063 


SAD 

CLBUE+11 

05060 

625052 


JMP* 

clbuf 

05061 

445063 


ISZ 

CLBUE+11 

05062 

605056 


JMp 

.-4 

05063 

000000 


0 



.EJECT 


/WAS JMS SWIT7(NnT USER) 
/HERE IE NOT SET 
/HERE IE SET 

/COUNTER 

/fill error lok with cal 

/CL BUEEER 

/GO to mul, div routines 

/Scan eor 00 or 77 elag any error 


/SET UP cOUnTE and COUNTERS 

/SET bit IE error 

/ROTATE bit AND CHECK WORD 


/PRINT OUT error status 


/RHE 

/LHE 

/DEPOSIT zeros 

/rhe=lhe 

/EXIT YES 

/NO 
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/ROUTINE TO PRINT ERROR BUFFER 
/ 


05064 

740040 

STABUF 

HLT 



05065 

107026 


JMS 

PRINT 

/CHECK FOR PRINT 

05066 

105110 


JMS 

ANDBUF 

/ano them 

05067 

105144 


JMS 

I0R8UF 

/••OR" them 

05070 

105126 


JMS 

tadbuf 

/TAD THEM 

0507i 

105412 


TIN 



05072 

205125 


LAC 

ANOBUF+15 


05073 

105314 


JMS 

OPS 

/PRINT The "AND" 

05074 

105345 


TYT 



05075 

205143 


LAC 

TADBUF+15 


05076 

105314 


JMS 

OPS 

/PRINT The "Tad" 

05077 

105345 


TYT 



05100 

205162 


LAC 

IORBUF+16 


05101 

105314 


JMS 

OPS 

/PRINT The "IOR" 

05102 

207143 


LAC 

ASTRIC 


05103 

741200 


SNA 



05104 

625064 


JMP 

* STABUF 

/EXIT 

05105 

765724 


LAW 

TE^^TI /PRINT 

the ASTRICT 

05106 

105225 


TSR 



05107 

625064 

/ 

JMP 

* STABUF 

/EXIT 



/ 

/’’AND” 

ERROR 

WORDS 


05110 

740040 

ANOBUF 

HLT 



05111 

750001 


CLC 


/PERMIT "and” function 

05112 

045125 


OAC 

AnDBUF+15 

/Clear tem storage 

05113 

207371 


LAC 

(LAC wORDA 

/L.L. word 

05114 

045115 


OAC 

. +1 


05115 

204776 


LAC 

WOrOA 


05116 

505125 


AND 

ANDBUF+15 


05117 

045125 


OAC 

ANOBUF+15 


05120 

207372 


LAC 

(LAC WORDA+14 

/U.L. WORD 

05121 

545115 


SAD 

AND0UF+5 

/LLsUL 

05122 

625110 


JMP* ANOBUF 

/YES EXIT 

05123 

445115 


IS2 

ANDBUF+5 

/NO 

05124 

605115 


JMP 

ANOBUF+5 

/LOOP 

05125 

000000 


0 


/temp STORAGE 


/ 

.EJECT 
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/Tad error words 


05126 

740040 

tadbuf 

MLT 


05127 

754000 


CLL ! 

CL A 

05130 

045143 


DAC 

TAnBUF+15 

05131 

207371 


LAC 

(LAC WORDA 

05132 

045133 


DAC 

. +1 

05133 

204776 


LAC 

WOrOA 

05134 

345143 


TAD 

TAn8UF+l5 

05135 

045143 


DAC 

TAn0UF+i5 

05136 

207373 


LAC 

(LAC WORDA+21 

05137 

545133 


SAD 

TAD8UF+5 

05 I 40 

625126 


JMP» 

TadpUF 

05141 

445133 


IS2 

TAD0UF+5 

05142 

605133 


JMP 

TAnBUF+5 

05143 

000000 

/ 

0 




/ 

/lOR ERROR 

1 WORDS 

05144 

740040 

lORBUF 

HLT 


05145 

754000 


cllicla 

05146 

045162 


DAC 

1OR0UF*16 

05147 

207371 


LAC 

(LAC wOrDA 

05150 

045151 


OAC 

. +1 

05151 

204776 


LAC 

WORDA 

05152 

104166 


JMS 

lOR 

05153 

005162 


I0R8UF+16 

05154 

045162 


OAC 

IORBUF+16 

05155 

207373 


LAC 

(LAC WORDA+21 

05156 

545151 


SAD 

IORBUF+5 

05157 

625144 


JMP* 

iorbuf 

05160 

445151 


IS2 

IORbUF+5 

05161 

605151 


JMP 

lORBUF+5 

05162 

000000 


0 



.EJECT 


/U.L. 


/add them 

/U.L. 

/l.l.=u.l . 

/YES EXIT 

/NO 

/LOOP 

/SUM OF error 


/L.L. 


/"OR” 


/U.L. 

/U.L.=U.L. 

/YES 

/NO 

/LOOP 

/INCLUSIVE OR OF WORDS 
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/multiply simulation control 


05163 

740040 

MSC 

WLT 


05164 

765710 


LAW 

TEXTH 

05165 

105225 


TSP 


05166 

207374 


LAC 

(JMS MULSIM 

05167 

046362 


DAC 

MP 4 -I 

05170 

046406 


DAC 

mPSIGN+6 

05171 

046411 


DAC 

MP? + 2 

05172 

106065 


JMS 

SOEMUL 

05173 

207375 


LAC 

(NOP 

05174 

046362 


DAC 

MP4-1 

05175 

046406 


DAC 

MPSIGN+6 

05176 

046411 


DAC 

Mp? + 2 

05177 

106075 


JMS 

harmul 

05200 

605177 


JMP 

.-1 


/ 


/ 

/DIVIDE simulation CONTROL 


05201 

740040 

DISC 

HLT 


05202 

765710 


LAW 

TEXTH 

05203 

105225 


TSR 


05204 

207376 


LAC 

(JMS DIVSIM 

05205 

046443 


OAC 

DSPl 

05206 

046465 


DAC 

0SP2 

05207 

046453 


OAC 

OSP 3 

05210 

046523 


DAC 

OSP 4 

05211 

046531 


DAC 

OSP 5 

05212 

046546 


DAC 

DSP6 

05213 

106170 


JMS 

SOEDIV 

05214 

207375 


LAC 

(NOP 

05215 

046443 


OAC 

DSPl 

05216 

046465 


OAC 

0SP2 

05217 

046453 


OAC 

OSP 3 

05220 

046523 


OAC 

0SP4 

05221 

046531 


OAC 

OSP 5 

05222 

046546 


OAC 

0SP6 

05223 

106156 


JMS 

HARDIV 

05224 

605223 

/TAPE 3A 

JMP 

.-1 



/TYPE STRING OF CHARACTERS 



/E0M=77=? 




657323 

IDIVS=657323 


05225 

605225 

TYPTSR 

JMP 


05226 

507241 


AND 

( 7777) 

05227 

047203 


DAC 

TEMYi# 

05230 

227203 


LAC* 

TEMYl 

05231 

447203 


ISZ 

TEMYi 

05232 

045307 


DAC 

TYPSAV 

05233 

742020 


RTR 


05234 

742020 


RTR 


05235 

742020 


RTR 


05236 

045310 


OAC 

TYPSAV+1 

05237 

742020 


RTR 


05240 

742020 


RTR 


05241 

742020 


RTR 



/generate simulation 


/LOOP 


/GENERATE simulation 


/LOOP 
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/ACTIVE 

/test for CRLE 

/CRLF? 

/YEs 

/NO 

/CORRECT IT FOR NEXT TIME 


/DO CRLF 

/type last character 


/END OF MESSAGE? 
/YES 

/IF HERO IGNOR 
/IGNOR 


/3RD 

/2NO 

/active CHaR 
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/type contents of the AC IN OcTaL 


05314 

6053 I 4 

TYPCON 

JMP . 

05315 

105360 


JMS DECONT 

05316 

105401 


JMS TYPOCT 

05317 

205313 


LAG TYpSAV+4 

05320 

105401 


JMS TyPOCT 

05321 

205312 


LAC TYPSAV +3 

05322 

105401 


JMS TYPOCT 

05323 

205311 


LAC TYPSAV+2 

05324 

105401 


JMS TYPOCT 

05325 

205310 


LAC TYPSAV+i 

05326 

105401 


JMS TYPOCT 

05327 

205307 


LAC TYPSAV 

05330 

105401 


JMS TYPOCT 

05331 

105406 


JMS SPACF2 

05332 

625314 

/TYPE OUT 

JMP* TYPCON 

lowest 3 char in octal 

05333 

605333 

TYPCO 3 

JMP . 

05334 

105360 


JMS DECONT 

05335 

205311 


LAC TYPSAV+2 

05336 

105401 


JMS TYPOCT 

05337 

205310 


LAC TYPSAV+l 

05340 

105401 


JMS TYPOCT 

05341 

205307 


LAC TYPSAV 

05342 

105401 


JMS TYPOCT 

05343 

105406 


JMS SPACE2 

05344 

625333 


JMP* TYPC03 

05345 

605345 

TYPTYT 

JMP . 

05346 

105354 


TSP 

05347 

105354 


TSP 

05350 

105354 


TSP 

05351 

105354 


TSP 

05352 

105354 


TSP 

05353 

625345 


JMP* TYPTYT 

05354 

605354 

SPAC 

JMP . 

05355 

207403 


LAC (240 

05356 

106562 


JMS OTY 

05357 

625354 


JMP* SPAC 
.EJECT 
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05360 

605360 

decont 

JMP . 


05361 

S 3 0 7 


nAC TYPSAV 


0536? 

749020 


RTR 


05363 

740020 


RAR 


05364 

045310 


OAC TYPSAV+1 


0536S 

742020 


RTR 


05366 

740020 


RAR 


05367 

045311 


DAC TYPSAV+2 


05370 

742020 


RTR 


05371 

740020 


RAR 


0537? 

045312 


DAC TYPSAV+3 


05373 

742020 


RTR 


05374 

740020 


RAR 


05375 

045313 


DAC TYPSAV+4 


05376 

742020 


RTR 


05377 

740020 


RAR 


05400 

625360 


JMP* OECONT 


05401 

605401 

TYPOCT 

JMP . 


0540? 

507217 


AND ( 7 


05403 

347404 


TAD <260 


05404 

106562 


JMS OTY 


05405 

625401 


JMP* TYPOCT 


05406 

605406 

SPACE2 

JMP . 


05407 

767225 


LAW (77 


05410 

105225 


TSR 


05411 

625406 


JMP* SPACE2 


05412 

605412 

TYCRLF 

JMP . 


05413 

207405 


LAC (215 


05414 

106562 


JMS OTY 


05415 

207406 


LAC (212 


05416 

106562 


JMS OTY 


05417 

625412 


JMP* TYCRLF 



105401 

TDIGiTr 

JMS TYPOCT 



105354 

TSP=JMS 

SPAC 



105225 

TSRs JMS 

TYPTSR 

/STRING 


105412 

TCR= JMS 

TYCRLF 

/CR,LF 


105412 

T INsTCR 




005314 

OPS=TYPcON 

/contents of AC IN 


105345 

tyt=jms 

TYPTYT 

/TAB 


005314 

OPT=OPS 




/ 


OcTaL 


EJECT 
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05420 151215 

05421 251424 

05422 112014 

05423 315504 

05424 112611 

05425 040540 

05426 240523 

05427 245420 

05430 012224 

05431 406256 

05432 151220 

05433 012224 

05434 406140 

05435 231017 

05436 251404 

05437 400205 

05440 402225 

05441 164020 

05442 221117 

05443 224024 

05444 174024 

05445 101123 

05446 402305 

05447 032411 

05450 171600 

05451 151223 

05452 276075 

05453 617504 

05454 051405 

05455 240540 

05456 052222 

05457 172240 

05460 243120 

05461 172524 

05462 235600 

05463 151223 

05464 276175 

05465 617510 

05466 011424 

05467 400106 

05470 240522 

05471 400501 

05472 031040 

05473 050105 

05474 401720 

05475 052201 

05476 241117 

05477 165600 

05500 151223 

05501 276275 

05502 617522 

05503 052005 

05504 0^^2440 

05505 140123 

05506 244005 


texta .sixrt 


. SiXBT 


.SiXBT 


. SiXBT 


.SIXBT 


<i5><i2>'multiply-di vide TEST,PaRT 2. 


<15><12>*PArT 1 SHqUlD BE RUim PRiOR Tq THjS SECTjON 


<15><12>’SW0=1=DElETE ErRQR TYPQUTS. 


<15><12>» SW1=1=HALT after EACr EAE operation. 


<15><12>’SW2=1=REPEAT LAST EAE OPERATION. 
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05507 010540 

05510 172005 

05511 220124 

05512 111716 

05513 560000 

05514 151223 .SIXBT 

05515 276375 

05516 617510 

05517 011424 

05520 400106 

05521 240522 

05522 400501 

05523 031040 

05524 050105 

05525 402305 

05526 212505 

05527 160305 

05530 560000 

05531 151223 .SlXBj 

05532 276475 

05533 617522 

05534 052005 

05535 012440 

05536 050103 

05537 104005 

05540 010540 

05541 230521 

05542 250516 

05543 030556 

05544 151223 .SIXBT 

05545 276575 

05546 617503 

05547 310314 

05550 054003 

05551 171520 

05552 140524 

05553 054024 

05554 052324 

05555 560000 

05556 151223 .SiXBT 

05557 276675 

05560 617520 

05561 221116 

05562 244042 

05563 171342 

05564 400124 

05565 400516 

05566 044017 

05567 064020 

05570 012323 

05571 544027 

05572 100516 

05573 40P327 

05574 657561 

05575 770000 


<15><12>'SW3=1=HALT after EACH EAE SEQUENCE. 


<l5><l2>’SW4=l=REpEAT EAC^ EAE sEquEnCE. 


<15><12>’SW5=1=CYClE COMPLETE TEST. 


<15><12>’SW6 = 1 = PRinT ’’OK" AT E:nD QE pass, when SW5 = 1'<77> 
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05576 

151215 

05577 

251423 

05600 

400601 

05601 

111405 

05602 

044040 

05603 

401525 

05604 

142411 

05605 

201411 

05606 

052240 

05607 

500103 

05610 

514015 

05611 

251424 

05612 

112014 

05613 

110301 

05614 

160477 

05615 

101107 

05616 

104017 

05617 

220405 

05620 

224020 

05621 

221704 

05622 

250324 

05623 

404014 

05624 

172740 

05625 

172204 

05626 

052240 

05627 

202217 

05630 

042503 

05631 

247700 

05632 

151210 

05633 

012204 

05634 

270122 

05635 

057700 

05636 

151204 

05637 

112623 

05640 

400601 

05641 

111405 

05642 

044003 

05643 

500411 

05644 

261123 

05645 

172251 

05646 

404040 

05647 

035001 

05650 

035140 

05651 

404040 

05652 

400350 

05653 

152151 

05654 

151200 

05655 

770000 

05656 

212517 

05657 

241105 

05660 

162440 

05661 

404040 

05662 

404040 

05663 

220515 

05664 

011116 


textb .sixbt 


TEXTC .SiXBT 

TEXTO .SIXBT 

TEXTE .SiXBT 


.SIXBT 

textf .sixbt 


<15><12>'MULS EaILED 


multiplier (AC) multiplicand?' 


•hiGh order product low order PRoDUCT'<77> 

<15><12>'hAR0wARE»<77> 

<l5><12>’DiVS failed C(DiViSOR) C{AC) C ( MO ) ’ <1'5><12> 


<77> 

•quotient 


remainder LINK»<1‘5><12>’ SOFTWARE ?’ <77 > 
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05665 040522 

05666 404014 

05667 111613 

05670 151223 

05671 170624 

05672 270122 

05673 057777 

05674 151214 

05675 111613 

05676 401617 

05677 244023 

05700 052440 

05701 171640 

05702 041126 

05703 110405 

05704 401726 

05705 052206 

05706 141727 

05707 777700 

05710 151203 

05711 501451 

05712 404040 

05713 035001 

05714 035140 

05715 404040 

05716 404003 

05717 501521 

05720 514040 

05721 404003 

05722 502303 

05723 517700 

05724 520000 

05725 151217 

05726 252440 

05727 170640 

05730 616060 

05731 400310 

05732 050313 

05733 400201 

05734 047700 


TEXTG .SiXBT <15><12>'LINK NOT SET ON DlVjDE OVERFLOW? ' <77> 


TEXTh .SIXBT <15><12>'C(l) C(AC) C(mQ) C(sC)'<77> 


TeXTI .SIXBT /*/ 

TEXTJ .SIXBt <15><12>'0uT OF 100 CHECK BAD?’ 


/PDP-15 eAE II - tape 4 
/random control MuL/DIV 


/ 


05735 

740000 

EXRAN 

NOP 


05736 

740000 


NOP 

/set up for Random loop 

05737 

104162 


JMS LOOP 4 

/set up for loop 

05740 

105747 


JMS MUlShT 

/Random multiply 

05741 

104134 


JMS HLOOPM 

/Check for halt and loop 

05742 

104162 


JMS LOOP 4 

/SET UP FOR loop 

05743 

106120 


JMS OIVSHT 

/Random divide 

05744 

104134 


JMS HLOOPM 

/CHECK FOR HALT AND LOOP 

05745 

740000 


NOP 

/CHECK FDR LOOP 

05746 

625735 


JMP* EXRAN 



/ 

/multiply Shift control 
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(^5747 

740040 

MULSHT 

XX 



05751^ 

207407 


LAC 

CM 

I 

to 

/ONE Shift 

05751 

046334 


OAC 

HMPY+4 

/hardware insert 

^ 515 ? 

777777 


LAW 

-1 

/ONE 

05753 

046360 


OaC 

MP4-3 

/software insert 

05754 

105765 


jMS 

EXmUL 

/GO TO multiply 

05755 

206334 


LAC 

HMPy-*-4 

/multiply instruction 

05756 

547410 


SAD 

( MIJLS 

/22 shifts 

05757 

6257 47 


JMP« 

MULSHT 

/yes exit 

0576^ 

44^334 


IS2 

HMPY+4 

/increment hardware shift 

05761 

750001 


CLC 



05762 

346360 


tad 

MP4-3 


05763 

046360 


OAC 

MP4-3 

/increment sOf^TWApE sRIEj 

05764 

605754 


JMP 

. -10 




/multiply 

RANDOM numbers 

(RaN2 X RaN3) 

05765 

740000 

EXMUL 

NOP 



05766 

207411 


LAC 

{ 770000 


05767 

047147 


OAC 

ctran# 

/Random number counter 4096 

05770 

207412 


LAC 

( 003466 


05771 

046021 


OAC 

RANI 


05772 

207413 


lac 

( 153501 


05773 

046022 


DAC 

RAN2 


05774 

207414 


LAC 

(210762 


05775 

046023 


DAC 

RAN3 


05776 

106007 


JMS 

RAN 

/RANDOM NUMBER GENERATOR 

05777 

104157 


JMS 

L00P2 

/LOOP SET UP 

06000 

106065 


JMS 

SOFMUL 

/SOFTWARE MULTIPLY 

06001 

106075 


JMS 

harmul 

/HARDWARE MULTIPLY 

06002 

I06l05 


JMS 

MULCOM 

/hardware=soetware 

06003 

104130 


JMS 

HLOOPS 

/halt-loop? 

06004 

447147 


IS? 

ctran 


06005 

605776 


JMp 

.-7 


06006 

625765 


JMP« 

EXMUL 

/EXIT 
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/Random 

number generator 

06P!07 

000000 

RAN 

0 

06010 

? 0 6 0 ? 1 


LAC RANI 

06011 

1 0 0 ? 4 


JMS rdgen 

0601? 

046021 


DAC RANl /FIRST NUMRER 

06013 

1. 0 6 0 2 4 


JMS ROGEN 

06014 

046022 


DAC RAN2 /SECOND NUMrER 

06015 

106024 


JMS ROGEN 

06016 

046023 


DAC RAN3 /Third number 

06017 

626007 

/ 

jMP* Ran 

0602^ 

335671 

RNO 

335671 

06021 

003466 

Rani 

003466 

0602? 

153501 

RAn2 

153501 

06023 

210762 

RAn3 

210762 

06024 

000000 

ROGEN 

0 

06025 

046064 


DAC RWRK 

06026 

206052 


LAC RANDEX 

06027 

547415 


SAD (R4NTBL+10 

06030 

741000 


SKP 

06031 

606041 


JMP RANTAD 

06032 

207416 


LAC (RANTBL 

06033 

046052 


DAC RANDEX 

06034 

206051 


LAC RANCON 

06035 

744010 


CLL :ral 

06036 

741400 


S2L 

06037 

347213 


TAD (1 

06040 

046051 


DAC RANCON 

06041 

226052 

rantad 

LAC* RANDEX 

06042 

346051 


TAD RANCON 

06043 

066052 


DAC* RANDEX 

06044 

206064 


LAC RWRK 

06045 

740020 


RAR 

06046 

366052 


TAD* RANDEX 

06047 

446052 


IS2 RANDEX 

06050 

626024 


JMP* ROGEN 


.EJECT 
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06051 

123456 

RANCON 

123456 

0605? 

006063 

RANDEX 

RANTBL+10 

06053 

654321 

RAMIRL 

654321 

06054 

361 416 


361416 

06055 

055363 


055363 

06056 

546060 


546060 

06057 

243035 


243035 

06060 

762572 


762572 

0606i 

453237 


453237 

0606? 

150214 


150214 

06063 

000000 


0 

06064 

000000 

RWRK 

0 

.EJECT 
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/SOFTWARE 

MULTIPLY (RAN2 X RAN3) 

06065 

740000 

SOFMDL 

NOP 


06066 

206022 


LAC RAN2 


06067 

1 0^340 


JMS f^ULT 


0 6070 

206023 


LAC R A 3 

/LOW ORDER IN AC HIGH ORDER IN 

06071 

047164 


OAC LPROnS# 

/LOW order 

06072 

207170 


LAC MP5 


06073 

047161 


OAC HPROnS 

/HIGH order 

06074 

626065 


JMP* SOFMUL 

/EXIT 



/hardware 

MULTIPLY 


06075 

740000 

harmul 

NOP 


06076 

206023 


LAC RAN3 

/MULTIPLIER 

06077 

106330 


JMS HMPY 


06100 

206022 


LAC RAN2 

/multiplicand 

06l0l 

047160 


OAC HPRODH 

/HIGH order 

06102 

641002 


LACQ 


06103 

047163 


OAC LPRODh 

/LOW ORDER 

06104 

626075 


JMP* HArMUL 

/exit 



/compare 

PRODUCT or software 

+ hardware 

06105 

740000 

MULCOM 

NOP 


06106 

207160 


LAC HPRODH# 


06107 

547161 


SAD HPRODS# 


06110 

741000 


SKP 


06111 

606115 


JMP .+4 

/HIGH order NOT EQUAL 

06112 

207163 


LAC LPRODH# 


06113 

547164 


SAD LPROOS 


06114 

606117 


JMP .+3 


06115 

106750 


JMS 8A0MUL 

/LOW ORDER NOT EQUAL 

06116 

106256 


JMS mulct 

/LOW order NOT equal 

06117 

626105 


JMP* MULCOM 




/ 

/DIVIDE shift control 


06120 

740040 

DIVSHT 

HLT 


06121 

207417 


LAC (OlVS-22 

/one shift count 

06122 

046324 


DAC HDlVlD+6 

/HARDWARE Insert 

06123 

777777 


LAW -1 

/one 

06124 

046436 


OAC DV4+4 

/SOFTWARE INSERT 

06125 

106136 


JMS EXOIV 

/GO TO DIVIDE 

06126 

206324 


LAC HOIVID+6 

/DIVIDE INSTRUCTION 

0612? 

547420 


SAD (OIVS 

/23 SHIFTS 

06130 

626120 


JMP* DIVSHT 

/yes exit 

06131 

446324 


iS? hOiViD+6 

/INC HARDWARE ShIFT 

06132 

750001 


CLC 


06133 

346436 


TAD 0V4+4 

/INC software shift 

06134 

046436 


DAC DV4+4 


06135 

606125 


JMP .-10 





.EJECT 



MP5 
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/DIVIDE 

Random 

numbers (RaNi, 

,RaN3)/(RaN2) 

06136 

740000 

EXn I V 

NOP 



06137 

207411 


LAC 

( 770000 


06^40 

047^47 


OAC 

ctran 

/RANDOM number COUNTER 4096 

06 I 4 I 

?074l3 


LAC 

( 153501 


0614? 

046022 


DAC 

RAN2 


06143 

207414 


lac 

( 210762 


06144 

046023 


DAC 

rAN3 


06145 

106007 


JMS 

Ran 

/Random number generator 

06146 

104157 


JMS 

L 00 P 2 /LOOP Setup 

06147 

106170 


JMS 

SOEOI V 

/SOFTWARE divide 

06150 

106156 


JMS 

hardiv 

/HARDWARE divide 

06151 

106201 


JMS 

OIVCOM 

/HAROWaRE=SOFTWaRE 

0615? 

104130 


JMS 

HLOOPS 

/CHECK halt loop 

06153 

447147 


IS? 

ctran 


06154 

606145 


JMP 

. -7 


06155 

626136 


JMPfl 

• EXDIV 





.EJECT 
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/HAROWARO 

DIVIDE 


06156 

740000 

HAROI V 

NOP 


06157 

?060?3 


LAC RAN3 


0 616 0 

65^000 


LMQ 

/dividend low order 

06161 

?060?1 


LAC RANl 

/DIVIDEND HIGH ORDER 

0 616? 

106316 


JMS HDIVID 


06167 

206022 


LAC RAN2 

/DIVISOR 

06164 

047174 


OAC REMH 

/HARDWARE remainder 

06165 

641002 


LACQ 


06166 

047172 


OAC quoth 

/hardware quotient 

06167 

626156 


JMP* HAROIV 




/ 

/software 

divide (Rani 

.RaN3)/{RaN2) 

06170 

740000 

SOFDI V 

NOP 


06171 

206021 


LAC RAnI 

/high order Dividend 

06172 

106413 


JMs DIVIDE 


06173 

206023 


LAC RAN3 

/LOW ORDER dividend 

06174 

206022 


LAC RAN2 

/DIVISOR 

06175 

047173 


OAC QUOTS 

/SOFTWARE QUOTIENT 

06176 

207150 


LAC OVD 


06177 

047175 


DAC REMS 

/SOFTWARE remainder 

06200 

626170 


JMP* SOFDIV 




/ 

/compare 

quotient and 

remainders 

06201 

740000 

DIVCOM 

NOP 


0620? 

206156 


Lac haRdiv 

/GET LINK EROM SOFTWaRE DIVIDE 

06203 

741400 


SZL 

/Check link from hardware Divid 

06204 

740001 


CM A 

/hdw link=i, so compl sofw link 

06205 

741100 


SPA 

/AC should be PLUSE foe equal l 

06206 

606216 


JMP OVCMER 

/LINKS NOT equal, REPORT ERROR. 

06207 

207172 


LAC QUOTH# 


06210 

547173 


SAD QUOTS# 


06211 

741000 


SKP 


06212 

606216 


JMP .+4 

/QUOTIENT NOT EQUAL 

06213 

207174 


LAC REMH# 


06214 

547175 


SAD REMS# 


06215 

606220 


JMP .+3 


06216 

106664 

ovcmer 

JMS BADOIV 

/REMAINDER NOT EQUAL 

06217 

106221 


JMS OIVCT 

/PERCENT OF TIMES 

06220 

626201 

/ 

JMP* DIVCOM 




/ 

.EJECT 
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/number 

OF TIMES DIVS BAO 




0622^ 

740040 

nivcT 

HLT 





06222 

107026 


JMS 

PRINT 




06223 

207347 


lac 

( -100 

/times Ch 

ECk 


06224 

047153 


DAC 

EAEOON# 


/ j I ME5 COyNjER 


06225 

147204 


OEM 

xbad# 


/CL TIMES POUND RAD 


06226 

106170 


JMS 

SOFDI V 




06227 

106156 


JMS 

harqiv 




06230 

206156 


LAC 

HaROI V 

/GET SFTW 

LINK 


06231 

741400 


SiL 


/CHECK HOW LINK 


06232 

740001 


cma 


/HOW LINK 

=1 , SO compl sft link 


06233 

741100 


SPa 


/aC MUST 

BE PLUS for equal LINES 

06234 

606244 


JMP 

OcTeR /not eOUaL 

. GO To error. 


06235 

207172 


lac 

QUOTH 




06236 

547173 


SAP 

OUOTS 




06237 

741000 


SKP 



/GOOD 


06240 

606244 


JMP 

. +4 


/BAD 


06241 

207174 


LAC 

remh 




06242 

547175 


SAD 

REMS 




06243 

741000 


SKP 



/GOOD 


06244 

447204 

DCTER 

ISZ 

XBAD 


/BAD increment TIMES 

FOUND 

06245 

447153 


IS2 

EAEOON 


/LIMITS 


06246 

606226 


JMP 

OIVCT + 5 


/LOOP 


06247 

106306 


JMS 

TIMTEX 


/PRINT ROUTINE 


06250 

105412 


TCP 





06251 

206324 


LAC 

HDIVlO+6 




06252 

105314 


JMS 

OPT 




06253 

207421 


LAC 

(DISC+1 




06254 

740040 


NLT 





06255 

626221 


JMP 

« DIVCT 


/EXIT 




/ 

/number 

OF times muls bad 




06256 

740040 

MULCT 

HLT 





06257 

107026 


JMS 

PRINT 




06260 

207347 


LAC 

( -100 

/TIMES CHECK 


06261 

047153 


DAC 

EAEOON 


/TIMES COUNTER 


06262 

147204 


02M 

XBAO 


/CL TIMES FOUND BAD 


06263 

106065 


JMS 

SOFMUL 




06264 

106075 


JMS 

HARMUL 




06265 

207160 


LAC 

HPROOH 




06266 

547161 


SAD 

HPRODS 




06267 

741000 


SKP 



/GOOD 


06270 

606274 


JMP 

. +4 


/BAD 


06271 

207163 


LAC 

LPRODH 




06272 

547164 


SAD 

LPRODS 




06273 

741000 


SKP 



//GOOD 


06274 

447204 


IS2 

XBAO 


/BAD INCREMENT TIMES 

FOUND 

06275 

447153 


IS2 

EAEOON 


/LIMITS 


06276 

606263 


JMP 

MULCT+5 


/LOOP 


06277 

106306 


JMS 

timtex 


/PRINT ROUTINE 


06300 

105412 


TCP 





06301 

206334 


LAC 

HMpY+4 




06302 

105314 


JMS 

OPT 




06303 

207422 


LAC 

(MSC+l 




06304 

740040 


HLT 
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?6305 626256 


JMP* mulct 
.EJECT 


/EXIT 
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i?'6306 

06307 

06310 

06311 
0631? 

06313 

06314 

06315 


06316 

06317 

06320 

06321 

06322 

06323 
0 6 3 2^ 

06325 

06326 

06327 


740040 

/PRINT routine of time BAD 
fIMTFX hlT 


10 7 0 26 

J M S print 


765725 

LAW TEXTJ 


106225 

TSR 


105354 

TSP 


207204 

LAC XBAO 

/XX 

1 05333 

JMS TYPC03 


626306 

JMP* TIHTEX 

/EXIT 


/ 

/HaROWaRE arithmetic subroutines 

000000 

/SIGNED 01 VIDE SUBROUTINE 
/calling Sequence 
/divide in AC A No MQ 
/JMS HOlVlnE 
/PICKUP other Factor 
/ 

HDIVID 0 /entry TO 

subroutine 

047202 

DAC TEM# 


426316 

XCT« HOIVIO 


664000 

GSM 


046325 

DAC HOIVL 


207202 

LAC TEM 


644323 

ni VS 


000000 

HDIVL 0 /LOCATION 

OF DIVISOR 

446316 

IS2 HDIVID 


626316 

JMP» HDIVID 



.EJECT 


/OUT OF 100 checks bad XX. 
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/SIGNED multiply SUBROUTINE 
/CALLING SrOUENCF. 

/ONE factor IN AC 
/JMS HMPY 

/PICK UP OTHFR factor 


/ 


06330 

000000 

hmpy 

0 

06331 

664000 


GSM 

06332 

046335 


DAC .+3 

06333 

426330 


XCT» HMPy 

06334 

657122 


MULS 

06335 

000000 


0 

06336 

446330 


IS2 HMPY 

06337 

626330 


JMP* HMPY 
.EJECT 


/LACXXX ON LAC I XXX 
/ENTRY TO subroutine 

/FIX multiplier Magnitude 

/LAC Multiplicand 

/LOCATION OF MULTIPLIER 
/INDEX return 
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/PnP-15 ONE'S complement single precision mult iPL I caTION subroutine 
/HaROWaRE simulation 
/calling sequence: 

/LAC multiplier 

/JMS MULT 

/lac multiplicand 

/RETURm; low order product in AC, RICH order PROdUcT 
/IN MP5 


06340 

000000 

MULT 

0 

06341 

147170 


02M 

06342 

741200 


SNA 

06343 

7 40000 


NOP 

06344 

745100 


SPA :CLL 

06345 

740003 


CMA !CML 

06346 

047165 


DAC M#Pi 

06347 

426340 


XCT* mult 

06350 

741200 


SNA 

06351 

740000 


NOP 

06352 

741100 


SPA 

06353 

740003 


CMA ! CML 

06354 

047166 


OAC MP#2 

06355 

207423 


LAC (360000 

06356 

740010 


RAL 

06357 

046400 


DAC MPSIGN 

06360 

777756 


LAW -2? 

06361 

047167 


OAC MP#3 

06362 

7 40000 


NOP 

06363 

207165 

MP4 

LAC MPi 

06364 

740020 


RAR 

06365 

207170 


LAC MP5 

06366 

745400 


SZL :CLL 

06367 

347166 


TAD MP2 

06370 

740020 


RAR 

06371 

047170 


OAC MP5 

06372 

207165 


LAC MPl 

06373 

740020 


RAR 

06374 

047165 


DAC MPl 

06375 

207170 


LAC MP5 

06376 

447167 


ISZ MP3 

06377 

606411 


JMP MPZ+2 

0 64 00 

000000 

MPSIGN 

0 

06401 

047170 


OAC MP5 

06402 

207165 


LAC MPl 

06403 

740000 


NOP 

06404 

406400 


XCT MPSIGN 

06405 

047165 


OAC MPl 

06406 

7 40000 


NOP 

06407 

446340 

MPZ 

IS? MULT 

06410 

626340 


JMP* MULT 

06411 

740000 


NOP 

0641? 

606363 


JMP MP4 




.EJECT 
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/PDP-15 

ONE’S cOmPLEHENT 

DIVIDE subroutine HaPWaRE SIMULATION 



/CALLING 

SEQUENCE , 




/ 

LAC high order 

dividend/ JMS DIVIDE 



/ 

LAC LOW ORDER 

dividend 



/ 

LAC DIVISOR 




/ 

return. QUOT. IN AB, REM. IN D#Vd 



/IF HIGH 

dividend s greater or equal to DIVISOR, divide Takes 



/PLACE and LINK IS SET TO 1. 

06413 

000000 

divide 

0 

/HIGH order dividend IN AC 

06 " 4 

745100 


SPAjCLL /IS 

dividend positive 

06 ‘ -5 

740003 


CMa !CML 

/NO, COMPLEMENT AC AND LINK 

06416 

047150 


DAC D#VD 

/store high order dividend 

064^7 

4 26 4 1 2 


XcT* divide 

/FETCH LOW order DIVIDEND 

06420 

741400 


SZL 

^dividend sign bit positive? 

06421 

740001 


cma 

/NO» Complement low order oivjDEnd 

06422 

047171 


DAC Q#uO 

/STORE LOW ORDER DIVIDEND 

06423 

106424 


JMS DV5 

/deposit dividend SIGN BIT INTO DV 5 M 

06424 

000000 

0V5 

0 

/REMAINDER HAS SIGN OF DIVIDEND 

06425 

446413 


isz divide 


06426 

426413 


XCT* DIVIDE 

/FETCH DIVISOR 

06427 

741100 


SPA 

/SKIP IF SIGN POSITIVE 

06430 

740003 


cmaicml 

/COMPLEMENT AC AND LINK 

06431 

106432 


JMS DV4 

/DEPOSIT quotient SiGN BiT INTO DV4 

06432 

000000 

DV4 

0 

/CONTAINS SIGN BIT OF OuOTIENT 

06433 

744000 


CLL 

/CLEAR LINK 

06434 

047151 


DAC D#VS 

/SAVE DIVISOR 

06435 

446413 


ISZ DIVIDE 

/INCREMENT TO EXIT ADDRESS 

06436 

777755 


LAW -23 

/SET UP "STEP COUNTER” 

06437 

047152 


DAC DV#1 


06440 

206503 


LAC SVCB 


06441 

046476 


DAC SVC0 /SET 

SAVE CARRY SWiTCh TO INiTjAl 

06442 

147200 


DZM SVCrY /clear saved CARRY. 

06443 

740000 

DSPl 

NOP 


06444 

207151 


LAC CVS 

/FETCH DIVISOR 

06445 

606460 


JMP DV?A-1 

/START DIVISION 


.EJECT 
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06446 

06447 

06450 

06451 

06452 

06453 

06454 

06455 

06456 

06457 

06460 

06461 

06462 

06463 

06464 

06465 

06466 

06467 

06470 

06471 

06472 

06473 

06474 

06475 

06476 

06477 

06500 

06501 

06502 

06503 

06504 

06505 

06506 

06507 

06510 

06511 

06512 

06513 

06514 

06515 

06516 

06517 


206475 

DV? 

LAC 

OH I B 

/GET 

Saved hi quotient bit 

740010 


RAL 




/PUT BIT INTO LINK 

207150 


LAC 

OVn 



/GET DIVIDENO 

740010 


RAL 




/INSERT HI QUOT INTO DiV 

047150 


OAC 

nvn 



/STORE NEW dividend 

740000 

OSP3 

NOP 





206464 


LAC 

ncRY 

/GET 

last carry 

740010 


RAL 




/PUT INTO LINK 

207I5I 


LAC 

nvs 



/GET DIVISOR 

745400 


S2L 

!cLL 



/IF LINK IS 1, add NEG 0 

740031 


CMA ! 

! I AC 



/IF LlfgK Is 0» ADD PoS D 

347150 

DV2A 

tao 

nvn 



/ADD DIVISOR (+,-) TO Dl 

047150 


OAC 

OVn 



/STORE NEW dividend 

106464 


JMS 

. +1 




000000 

DCRY 

0 




/SAVE carry 

740000 

OSP2 

NOP 





207200 


LAC 

SVCRY 

/CHECK 

LAST 

741100 


SPA 




/CARRY. =1 IF overflow 

740002 


CML 




/IF overflow error last I 







/complement THIS INSERT 

207I7I 


LAC 

QUO 



/get quotient 

740010 


RaL 




/insert carry into quoth 

047171 


OAC 

QUO 



/STORE NEW quotient. 

106475 


JMs 

. +1 



/save hi bit EOr 

000000 

OHIB 

0 




/INSERTION INTO DIVIDEND 

740040 

SVC0 

HLT 





606513 


JMP 

SVC2 

/IST 

- 

SAVE EXTRA SIGN BIT 

606510 


JMP 

SVCl 

/2NO 

- 

SAVE Sign bit, check xsign i 

606504 


JMP 

SVClA 

/3R0 

- 

CHECK sign bit. 

606516 


JMP 

SVc3 

/others - continue 

606477 

SVCB 

JMP 


SVC0+1 


207200 

SVCIA 

LAC 

SVCRY 




741100 


SPA 





606550 


JMP 

OVRFLO 




606515 


JMP 

SVC3-1 




207200 

svci 

LAC 

S#VCRY 



/TEST Saved sign bit 

741100 


SPA 




/MUST = 0 

606550 


JMP 

OVRFLO 



/NOT=0. overflow 

206464 

SVC2 

LAC 

OCRY 




047200 


DAC 

SVCRY 

/SAVE 


CARRY For TEST NEXT CYCLE 

446476 


IS2 

SVC0 

/increment switch 

447152 

SVC3 

IS2 

DVl 



/increment step counter 

606446 


JMP 

OV2 



/GO TO NEXT DIVIDE CYCLE 


bit 


.EJECT 
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/step COUNTER=0 


06520 

206464 


LAC 

DCRY 

/TEST 

LAST CARRY 

0 6 5/1 

741100 


SPA 




^^ 7.2 

606527 


JMP 

DV3 


/lF=l NO CORRECTIONS NEEDEn 

/.S523 

740000 

DSP4 

NOP 




0 5524 

207151 


LAC 

DVS 


/WAS 0 







/add (+) DIVISOR TO correct 

06525 

347150 


Tad 

DVO 


/nvn Value por remainder 

06526 

047150 


OAC 

nvn 



06527 

206424 

0\/3 

Lac 

0V5 


/check dividend sign 

06530 

740010 


ral 



/ 

06531 

740000 

0SP5 

NOP 




06532 

207150 


LAC 

nvn 


/ 

06533 

741401 


SZL 

• cma 


/IE MINUS, COMPLEMENT REMAINDER 

06534 

047150 


OAC 

nvn 


/ 

06535 

206432 


LAC 

nV4 


/check divisor sign 

06536 

740010 


RAL 




06537 

207171 


lac 

QUO 



06540 

741400 


SZL 



/IF MINUS, complement qUOTIENT 

06541 

740001 


CMA 




06542 

047171 


DAC 

QUO 



06543 

207200 


LAC 

SVCRY 

/SET 

LINK TO determined VaLUE 

06544 

740010 


RAL 




06545 

207171 


LAC 

QUO 



06546 

7 40000 

DSP6 

NOP 




06547 

626413 


JMP 

* DIVIDE 








/overflow occurred 

06550 

207152 

OVRFLO 

LAC 

DVi 



06551 

740030 


I AC 




06552 

740100 


SMA 




06553 

606527 


JMP 

0V3 



06554 

206475 


LAC 

QHIB 

/GET 

Saved hi quotient bit 

06555 

740010 


RAL 




06556 

207150 


LAC 

nvn 


/PUT INTO dividend 

06557 

740010 


RAL 




06560 

047150 


OAC 

nvn 


/STORE NEW DIVIDEND 

06561 

606527 


JMP 

nV3 


/GO TO adjust signs 


.EJECT 
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/OUTPUT 

ROUTINE FOR TTy 

06562 

550(71000 

OTY 

0 

06563 

707704 


LEM 

06564 

700406 


TLS 

06565 

700401 


TSF 

06566 

606565 


JMP .-t 

06567 

626562 


JMP* OTY 



/Make three characters out oe 



/abco 

entrance TO subroutine 



/xxxx 

lhe of adoRess field 



//xxxx 

RHE of address FELD 

06570 

106570 

ABCD 

JMS . 

06571 

047162 


DAC lACW 

06572 

446570 


IS2 ABCD 

06573 

226570 


LAC* ARCD 

06574 

047201 


DAC TACW# 

06575 

446570 


ABCD 

06576 

227162 


LAC« lACW# 

06577 

446570 


ISZ ABCD 

06600 

227162 


LAC* lACW 

06601 

547201 


SAD TACW 

06602 

626570 


JMP# ARCD 

06603 

447162 


IS2 lACW 

06604 

606576 


JMP .-6 



/octal 

OUTPUT subroutine 



/OCTOUT 

entrance to routine 



/xxxx 

lhe of address field 



/xxxx 

RHE OF ADDRESS FIELD 

06605 

106605 

OCTOUT 

JMS . 

06606 

226605 


LAC* OCTOUT 

06607 

047162 


DAC lACW 

066t0 

446605 


ISZ OCTOUT 

06611 

226605 


LAC* OCTOUT 

06612 

047201 


DAC TACW 

06613 

446605 


ISZ OCTOUT 

06614 

227162 


LAC* lACW 

06615 

105314 


JMS OPS 

06616 

207162 


LAC lACW 

06617 

547201 


SAD TACW 

06620 

626605 


JMP* OCTOUT 

06621 

447162 


ISZ lACW 

06622 

606614 


JMP .-6 


.EJECT 
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740040 

RUN 

HLT 



f)6624 

104164 


JMS 

L00P5 

/LOOP SET UP 

PI6625 

105024 


JMS 

BEGIN 

/TEST WITH CONSTANTS 

06626 

1 04140 


JMS 

HLOOPL 

/halt loop 

06627 

104164 


JMS 

LOOP 5 

/LOOP SET UP 

06630 

105735 


JMS 

exran 

/TEST WITH Randoms 

06631 

104140 


JMS 

HLOOPL 

/JMS HLOOPL 

06632 

106642 


JMS 

PROK 


06633 

447146 


IS? 

CTCMPT # 

/PASS COMPLETE COUNTER 

06634 

606624 


JMP 

RUN + 1 

/LOOP 

06635 

606624 


JMP 

RUN + 1 





/BELL aT end of PaSS 

06636 

740040 

BELL 

HLT 



06637 

207424 


LAC 

( 207207 

/RING BELL 

06640 

106562 


JMS 

OTY 


06641 

626636 

/ 

JMP* BELL 




/ 

/PRINT "OK” aT end 

OF Pass 

06642 

740040 

PROK 

HLT 



06643 

750004 


LAS 



06644 

507353 


AND 

( 004000 


06645 

741200 


SNA 



06646 

626642 


JMP, 

» PROK 


06647 

446663 


IS? 

OKCTR 


06650 

606654 


JMP 

. +4 


06651 

105412 


TCR 



06652 

207425 


LAC 

(-30) 


06653 

046663 


DAC 

OKCTR 


06654 

207426 


LAC 

(317 


06655 

106562 


JMS 

OTy 


06656 

207427 


LAC 

(313 


06657 

106562 


JMS 

OTy 


06660 

207403 


LAC 

(240 


06661 

106562 


JMS 

OTy 


06662 

626642 


JMP 

» PROK 


06663 

777777 

OKCTR 

777777 





/TEXT FOR RAD DIVS 


06664 

740040 

BADDIV 

HLT 



06665 

107026 


JMS 

PRINT 

/PRINT? 

06666 

105412 


TIN 



06667 

765636 


LAW 

textf 

/DIVS FAILED 

06670 

105225 


TSR 



06671 

105345 


TYT 



06672 

105345 


TYT 



06673 

105354 


TSP 



06674 

105354 


TSP 



06675 

206022 


LAC 

RAN2 

/DIVISOR 

06676 

105314 


JMS 

OPS 


06677 

105345 


TYT 



06700 

206021 


LAC 

RANi 

/C (AC) HIGH order dividend 

06701 

105314 


JMS 

OPS 


06702 

105345 


TYT 


/tab 

06703 

206023 


LAC 

RAN3 

/C (MQ) LOW ORDER DIVIDEND 

06704 

105314 


JMS 

OPS 


06705 

105412 


TCR 


/CR. LF 
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06706 

105345 

TYT 

06707 

105345 

TYT 

06710 

765656 

LAW TEXTF 

06711 

105225 

TSR 

06712 

105354 

TSP 

06713 

105354 

ISP 

06714 

207173 

lac QUoTS 

06715 

105314 

JMg OPc^ 

06716 

105345 

TYT 

067l7 

105345 

TYT 

06720 

207175 

LAC REMS 

06721 

I053I4 

JMS OPS 

06722 

105345 

TYT 

06723 

206156 

lac hARDiV 

06724 

740010 

ral 

06725 

750010 

CLA 'RAL 

06726 

105401 

TDIGIT 

06727 

765632 

LAW TEXTD 

06730 

105225 

TSR 

06731 

105354 

TSP 

06732 

105354 

TSP 

06733 

207172 

LAC QUOTH 

06734 

105314 

JMS OPS 

06735 

105345 

TYT 

06736 

105345 

TYT 

06737 

207174 

LAC REMH 

06740 

I053I4 

JMS OPS 

06741 

105345 

TYT 

06742 

206201 

LAC DIVCOM 

06743 

740010 

RAL 

06744 

750010 

CLA 'RAL 

06745 

105401 

TDIGIT 

06746 

105412 

TCR 

06747 

626664 

JMP* BADDIV 


.EJECT 


/QUOTIENT 

/QUoTjEnT (SoET) 

/TAB 

/remainder (SOFT) 

/qEt setw link 

/clear AC AND PUT LINK IN ACl7 
/TYPE 

/QUOTIENT (HARD) 

/remainder (HARD) 

/get hdw link 

/CLEAR AC AND PUT LINK IN ACl7 
/TYPE 
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/TEXT FOR RAD MULS 


0675 {^ 

740040 

BADMUL 

HIT 


06751 

107026 


JMS PRINT 

/PRINT? 

0675? 

1 05412 


TIM 

/MULS Failed, multiplier, multiplicand 

0 6 7 53 

765576 


LAW TEXTS 

06754 

105225 


TSR 


06755 

105412 


TCR 


06756 

105345 


TYT 


06757 

105345 


TYT 


06760 

105345 


TYT 


06761 

206022 


LAC RAN2 

/multiplier 

06762 

105314 


JMS OPS 


06763 

105345 


TYT 

/tab 

06764 

105354 


TSP 


06765 

105345 


TYT 


06766 

206023 


LAC RAN3 

/multiplicand 

06767 

105314 


JMS OPS 


06770 

105412 


TCR 


06771 

105345 


TYT 


06772 

105345 


TYT 


06773 

105345 


TYT 


06774 

765615 


LAW TEXTC 

/HIGH order, low order 

06775 

105225 


TSR 


06776 

765666 


LAW TEXTF+10 


06777 

105225 


TSR 

/SOFTWARE 

07000 

105345 


TYT 


07001 

105345 


TYT 


07002 

207161 


LAC HPRODS 

/HIGH order product SOFT 

07003 

105314 


JMS OPS 


07004 

105345 


TYT 

/TAB 

07005 

105345 


TYT 


07006 

105345 


TYT 


07007 

207164 


lac lprods 

/LOW order product (SOFT) 

07010 

105314 


JMS OPs 


07011 

765632 


LAW TEXTD 


07012 

105225 


TSR 


07013 

105345 


TYT 


07014 

105345 


TYT 


07015 

207160 


LAC HPRODH 

/HIGH order product (HARD) 

07016 

105314 


JMS OPS 


07017 

105345 


TYT 


07020 

105345 


TYT 


07021 

105345 


TYT 

/TAB 

07022 

207163 


LAC LPRODH 

/LOW ORDER PRODUCT (HARD) 

07023 

105314 


JMS OPS 


07024 

105412 


TCR 


07025 

626750 


JMP* BADMUL 

/RETURN 




.EJECT 
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07026 740000 PRINT 

07027 750004 

07030 507254 

07031 741200 

07032 627026 

07033 207026 

07034 347321 

07035 047026 

07036 227026 

07037 047026 

07040 106636 

07041 627026 


07042 740040 BALINK 

07043 107026 

07044 765674 

07045 105225 

07046 627042 


07047 105412 FIRST 

07050 765420 

07051 105225 

07052 147146 

07053 606623 


/CHECK FOR PRINTOUT 

NOP 

LAS 

AND (4fl0000 
SNA 

JMP* print /PRINT 

LAC PRINT 

TAD (777776 /SUBTRACT 2 

OAC PRINT 
LAC* PRINT 
OAC PRINT 

JMS BELL /FOR BELL 

JMP* PRINT /E><IT no print 

/TEXT for bad link qURING OlVIpE 
HLT 

JMS print /PRINT 

LAW TEXTG /BAD LINK 

TSR 

JMP» BALINK /EXIT 

/initial TEXT 
TIN 

LAW TEXTA 
TSR 

DZM CTCMPT 
JMP RUN 
.EJECT 
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/routines for Simulation of typeout 

/SIMULATION SETUP 


07054 

740040 

SETSIM 

HLT 


07055 

105412 


T I N 


07056 

765710 


LAW TEXTH 

/L C(AC) C(MQ) C(SCA) 

07057 

105225 


TSR 


07060 

627054 

/ 

JMP« SFTSIM 




/print out multiply 

simulat ion 

07061 

740040 

MULSIM 

hlt 


07062 

107131 


JMS STacLK 

/STORE AC AND LINK 

07063 

105412 


TIN 


07064 

207211 


lag (0) 

/LINK = P' 

07065 

105401 


TOIGI T 


07066 

105345 


tyt 


07067 

207170 


lag MP5 

/(AC) 

07070 

105314 


JMS OPS 


07071 

105345 


TyT 


07072 

207165 


LAC MPi 

/(MO) 

07073 

105314 


JMS OPS 


07074 

105345 


TYT 


07075 

207167 


LAC MP3 

/(SCA ) 

07076 

507225 


ANO (000077 


07077 

105333 


JMS TYPC03 


07100 

107135 


JMS FTACLK 

/RESTORE AC AND LINK 

07101 

627061 

/ 

JMP* MULSIM 




/PRINTOUT for divide 

simulation 

07102 

740040 

DIVSIM 

HLT 


07103 

107131 


JMS STaCLK 

/store AC AND LINK 

07104 

105412 


TIN 


07105 

207102 


lag DiVSiM 


07106 

740100 


sma 


07107 

607113 


JMP .+4 


07110 

207213 


LAC (1) 


07111 

105401 


TOIGIT 


07112 

607115 


JMP .+3 


07113 

207211 


LAC (0) 



.eject 



07114 

105401 


TDIGIT 



07115 

105545 


TYT 



07116 

207150 


LAC Dvn 


/(AC) 

07117 

I053I4 


JMS OPS 



07120 

105345 


TYT 



07121 

207171 


lac quo 


/(MQ) 

07122 

105314 


JMS nPS 



07123 

105345 


TyT 



07124 

207152 


LAC DVi 


/(SCA) 

07125 

507225 


AND (000077 



07126 

105333 


JMS TYPCO3 



07127 

107135 


JMS FTaCLK 


/RESTORE AC AND LINK 

07l30 

627102 

y 

JMP* DIVSIM 





/ 

/STORE AC AND 

LINK 


07131 

740040 

staclk 

XX 


/LINK STORED IN MSB 

0 7132 

047134 


DAC STaCLK+3 



07133 

627131 


JMP* STAClK 



07134 

000000 


0 


/STORE AC 



/ 

/FETCH AC AND 

LINK 


07I35 

740040 

FTACLK 

XX / 



07136 

207131 


Lac staclk 


/get stored LINK 

07137 

740010 


ral 


/restore link 

07140 

207134 


LAC STACLK+3 


/rEstOrE AC 

07141 

627135 


JMP* FTACLK 


/exit 


000000 

/ 

.END 



07205 

070707 

*L 




07206 

252525 

*L 




07207 

707070 

*L 




07210 

525252 

«L 




07211 

000000 

*L 




0721? 

777777 

*L 




07213 

000001 

*L 




07214 

577777 

*L 




07215 

000003 

*L 




07216 

477777 

*L 




07217 

000007 

*L 




07220 

437777 

• L 




07221 

000017 

*L 




07222 

417777 

*L 




07223 

000037 

*L 




07224 

407777 

*L 




07225 

000077 

*L 




07226 

403777 

*L 




07227 

000177 

*L 




07230 

401777 

»L 




07231 

000377 

*L 




07232 

400777 





07233 

000777 





07234 

400377 

*L 




07235 

001777 

«L 




07236 

400177 





07237 

003777 

«L 
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07?40 

400077 

o L 

07241 

007777 


^^724? 

400037 


0 •^'5 4 3 

017777 

oL 

07244 

400017 

«L 

07245 

037777 


07246 

400007 

*L 

07247 

077777 

*L 

0 7 2 50 

400003 

*L 

07251 

177777 

• L 

07252 

400001 

«L 

07253 

377777 

*L 

07254 

400000 

*L 

07255 

052523 

«L 

07256 

052524 

*L 

07257 

125246 

*L 

07260 

125250 

*L 

07261 

252514 

*L 

07262 

252520 

*L 

07263 

525230 

*L 

07264 

125241 


07265 

252461 

*L 

07266 

252503 

*L 

07267 

525142 

*L 

07270 

125207 

*L 

07271 

252305 

*L 

07272 

252417 


07273 

524612 

*L 

07274 

125037 

*L 

07275 

251425 

«L 

07276 

252077 

*L 

07277 

523052 

*L 

07300 

124177 

*L 

07301 

246125 

*L 

07302 

250377 

*L 

07303 

514252 

*L 

07304 

120777 

»L 

07305 

230525 

*L 

07306 

241777 

*L 

07307 

461252 

*L 

07310 

103777 

*L 

07311 

142525 

*L 

07312 

207777 

«L 

07313 

305252 

*L 

07314 

612525 

*L 

07315 

037776 

»L 

07316 

425252 

*L 

07317 

000002 

*L 

07320 

777775 

#L 

07321 

777776 

»L 

07322 

000005 

*L 

07323 

777773 


07324 

777772 

«L 

07325 

777774 

«L 

07326 

000016 
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07327 

700000 

*L 

07330 

525251 

«L 

07331 

252526 

L 

07332 

252524 

*L 

07333 

525253 

*L 

07334 

677777 

*L 

07335 

377771 

»L 

07336 

337777 

*L 

07337 

024613 

*L 

07340 

140000 

«L 

07341 

525005 

*L 

07342 

777252 

*L 

07343 

002651 

«L 

07344 

253252 

*L 

07345 

405476 

*L 

07346 

117162 

♦ L 

07347 

777700 

*L 

07350 

010000 

*L 

07351 

200000 

«L 

07352 

040000 

*L 

07353 

004000 

*L 

07354 

100000 

*L 

07355 

020000 

*L 

07356 

002000 

*L 

07357 

204376 

*L 

07360 

204376 

♦ L 

07361 

740040 

*L 

07362 

204376 

• L 

07363 

000100 

*L 

07364 

004776 

«L 

07365 

777755 

*L 

07366 

204376 

*L 

07367 

004776 

#L 

07370 

005022 


07371 

204776 

#L 

07372 

205012 

*L 

07373 

205017 

*L 

07374 

107061 

*L 

07375 

740000 

*L 

07376 

107102 

*L 

07377 

151200 

*L 

07400 

000040 

*L 

07401 

000200 

*L 

07402 

000300 

*L 

07403 

000240 

*L 

07404 

000260 

*L 

07405 

000215 

*L 

07406 

000212 

«L 

07407 

657101 

*L 

07410 

657122 

*L 

07411 

770000 

«L 

07412 

003466 

«L 

07413 

153501 

*L 

07414 

210762 

#L 

07415 

006063 

*L 
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07416 

006053 


07417 

644301 

«L 

07420 

644323 

«L 

07421 

005202 


07422 

005164 

*L 

0"423 

360000 


0 7 4 2 4 

207207 

*L 

0 742 ;• 

777750 

*L 

07426 

000317 

*L 

07427 

000313 

*L 


NO error lines 
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EAE- 

ABCD 

06570 

ADDCT 

0714? 

ADVP 

00203 

A \i D B L) P 

05110 

ASTrIC 

07143 

RADDI V 

06664 

RAOMyL 

06750 

RAL INK 

07042 

BEGIN 

05024 

BELL 

06636 

RITCT 

07144 

ckflag 

04342 

CLBuF” 

05052 

CLOF 

700004 

CLON 

700044 

CLSF 

700001 

ctado 

07145 

CTCMPT 

07146 

gtran 

07147 

ncRY 

06464 

nCTER 

06244 

nECONT 

05360 

DISC 

05201 

diva 

03517 

DIVB 

03537 

nivc 

03557 

nivcoM 

06201 

01 VCT 

06221 

01 VD 

03577 

OIVE 

03617 

OIVF 

03637 

OIVG 

03657 

DIVIDE 

06413 

DIVSHT 

06120 

OIVSIM 

07102 

DIVTST 

03477 

OSCl 

02255 

DSC10 

02435 

OSCll 

02455 

0SC12 

02475 

0SC13 

02515 

0SC14 

02535 

DSC15 

02555 

0SC16 

02575 

0SC17 

02615 

DSC2 

02275 

OSC20 

02635 

nsc2i 

02655 

0SC3 

02315 

DSC4 

02335 

0SC5 

02355 

0SC6 

02375 

DSC7 

02415 

I^EED 

03755 

06443 
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EAE 

nsP2 

06465 

nsP3 

06453 

nsp4 

065?3 

nsP5 

06L31 

nsP6 

06546 

nVCMER 

06216 

nvn 

07150 

nvs 

07151 

nvi 

07152 

nv2 

06446 

nv?A 

06461 

nv3 

06527 

nv4 

06432 

nV5 

06424 

EAEDON 

07153 

ERFLAG 

07154 

frrbit 

07155 

frwor 

04376 

FXDIV 

06136 

FXMUL 

05765 

fxran 

05735 

FACT 

05047 

FI AC 

07156 

FILHLT 

04264 

filzer 

04250 

FIMQ 

07157 

FIRST 

07047 

ftaclk 

07135 

HARDI V 

06156 

HARMUL 

06075 

HOIVID 

06316 

HDIVL 

06325 

HLOOPL 

04140 

hloopm 

04134 

HLOOPS 

04130 

HLTL 

04220 

HLTM 

04212 

HITS 

04202 

HMPY 

06330 

hprodh 

07160 

HPRODS 

07161 

I acw 

07162 

IDIVS 

657323 

lOR 

04166 

TORBUF 

05144 

KRB 

700312 

KSF 

700301 

length 

05023 

LOOKUP 

05031 

LOOPA 

04122 

LOOPL 

04143 

LOOPM 

04234 

LOOPS 

04226 

LOOP 2 

04157 

i 00P4 

04162 
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EAi 

L00P5 

04164 

lprodh 

07163 

lprods 

07164 

MPSIGN 

0 6 400 

MPZ 

06407 

MPl 

07165 

MP2 

07166 

MP3 

07167 

MP4 

06363 

MP5 

07170 

MSC 

05163 

mspeed 

03701 

MULA 

03357 

MULB 

03377 

MULC 

03417 

MULCOM 

06105 

mulct 

06256 

MULD 

03437 

MULE 

03457 

mulsht 

05747 

MULS IM 

07061 

MULT 

06340 

MULTST 

03337 

NOIV 

00707 

NIOIVS 

01020 

NEAB 

00360 

NEAE 

00246 

NFROIV 

01347 

NFROVS 

01457 

NIOIV 

01127 

NIOIVS 

01237 

NMUL 

00467 

NMULS 

00577 

OCTOUT 

06605 

OKCTR 

06663 

OPS 

005314 

OPT 

005314 

OTY 

06562 

OVRFLO 

06550 

PCF 

700202 

PRINT 

07026 

PROK 

06642 

PSA 

700204 

PSB 

700244 

PSF 

700201 

QHIB 

06475 

QUO 

07171 

QUOTH 

07172 

QUOTS 

07173 

RAN 

06007 

RANCON 

06051 

RANOEX 

06052 

RANTAD 

06041 

I^NTBL 

06053 

Hni 

06021 
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RAN2 

06022 

RAN3 

06023 

RBCW 

04363 

RCF 

7 0 010 2 

RDGEN 

06024 

remh 

07174 

REMS 

07175 

RNO 

06020 

RRB 

700112 

RSA 

700104 

RSB 

700144 

RSF 

700101 

RUN 

06623 

RWRK 

06064 

SCAN 

04315 

setbit 

04301 

SETSIM 

07054 

SETUP 

04347 

SHCTl 

01571 

SHCT10 

01760 

SHCTll 

02001 

SHCT12 

02022 

SHCT13 

02043 

SHCT14 

02064 

SHCT15 

02105 

SHCT16 

02126 

SHCT17 

02147 

SHCT2 

01612 

SHCT20 

02170 

SHCT21 

02211 

SHCT22 

02232 

SHCT3 

01633 

SHCT4 

01654 

SHCT5 

01675 

SHCT6 

01716 

SHCT7 

01737 

SIGNA 

03001 

SIGNB 

03025 

SIGNC 

03051 

SIGND 

03121 

SIGNE 

03145 

SIGNF 

03171 

SIGNG 

03241 

S IGNH 

03265 

SIGNI 

03311 

SOFDI V 

06170 

SOFMUL 

06065 

SPAC 

05354 

SPACE2 

05406 

SPMunv 

04035 

STABUF 

05064 

STACLK 

07131 

STDIVS 

02755 

stema 

07176 

STFMB 

07177 
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EAI 

Sirovs 

03215 

ST IDVS 

03075 

STMUL 

0P677 

STMULS 

02716 

SVC9 

06503 

SVCRY 

07200 

SVG0 

06476 

SVCl 

06510 

SVClA 

06504 

SVC2 

06513 

SVC3 

06516 

SWIT6 

04151 

SWIT7 

04242 

TACW 

07201 

TADBUF 

05126 

TCF 

700402 

TCR 

105412 

TDIGIT 

105401 

TEH 

07202 

TEMYl 

07203 

TEXTA 

05420 

TEXTB 

05576 

TEXTC 

05615 

TEXTD 

05632 

TEXTE 

05636 

TEXTF 

05656 

TEXTG 

05674 

TEXTH 

05710 

TEXTI 

05724 

TEXTJ 

05725 

TIMTEX 

06306 

TIN 

105412 

TLS 

700406 

TSF 

700401 

TSP 

105354 

TSR 

105225 

TYCRLF 

05412 

TYPCHR 

05250 

TYPCON 

05314 

TYPC03 

05333 

TYPOCT 

05401 

TYPSAV 

05307 

TYPTSR 

05225 

TYPTYT 

05345 

TYT 

105345 

WORDA 

04776 

XBAO 

07204 
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EAE 

lORBUF 

05144 

MSC 

05163 

DISC 

05201 

TYPTSR 

05225 

typchr 

05250 

TYPSAV 

05307 

OPS 

005314 

OPT 

005314 

TYPCON 

05314 

TYPC03 

05333 

TYPTYT 

05345 

SPAC 

05354 

OECONT 

05360 

TYPOCT 

05401 

SPACE2 

05406 

TYCRLF 

05412 

TEXTA 

05420 

TEXTB 

05576 

TEXTC 

05615 

TEXTD 

05632 

TEXTE 

05636 

TEXTF 

05656 

TEXTG 

05674 

TEXTH 

05710 

TEXTI 

05724 

TEXT J 

05725 

fxran 

05735 

MULSHT 

05747 

FXMUL 

05765 

RAN 

06007 

RNO 

06020 

RANl 

06021 

RAN2 

06022 

RAN3 

06023 

RDGEN 

06024 

RANTAO 

06041 

RANCON 

06051 

RANDEX 

06052 

RANTBL 

06053 

RWRK 

06064 

SOFMUL 

06065 

HARMUL 

06075 

MULCOM 

06105 

OIVSHT 

06120 

FXDIV 

06136 

HARDI V 

06156 

SOEDIV 

06170 

OIVCOM 

06201 

nVCMER 

06216 

n I vcT 

06221 

OCTER 

06244 

mulct 

06256 

TIMTFX 

06306 

HO IV in 

06316 

HD IV! 

06325 
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EAE 

HMPY 

06330 

MUL T 

06340 

MP4 

06363 

MPS I GN 

06400 

MP? 

06407 

n I V IDE 

0643 3 

nv5 

06424 

nv4 

06432 

nSPi 

06443 

nv? 

06446 

nSP3 

06453 

nv?A 

06461 

ncRY 

06464 

nSP2 

06465 

QHIB 

06475 

SVC0 

06476 

SVCB 

06503 

SVClA 

06504 

SVCl 

06510 

SVC2 

06513 

SVC3 

06516 

nsP4 

06523 

0V3 

06527 

DSP5 

06531 

DSP6 

06546 

OVRFLO 

06550 

QTY 

06562 

ABCD 

06570 

nCToUT 

06605 

RUN 

06623 

bell 

06636 

PROK 

06642 

okctr 

06663 

badoi V 

06664 

badmul 

06750 

print 

07026 

balink 

07042 

FIRST 

07047 

SETSIM 

07054 

MULSIM 

07061 

DI VSIM 

07102 

staclk 

07131 

ftaclk 

07135 

addct 

07142 

ASTRIC 

07143 

RITCT 

07144 

ctadd 

07145 

CTCMPT 

07146 

ctran 

07147 

DVD 

07150 

DVS 

07151 

nvi 

07152 

EAEDON 

07153 


07154 

07155 
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EAE 

F 1 AC 

07156 

F I MQ 

07157 

hprooh 

07160 

HPROnS 

07161 

I ACW 

07162 

lprodh 

07163 

LPROOS 

07164 

MPl 

07165 

MP2 

07166 

MP3 

07167 

MP5 

07170 

QUO 

07171 

QUOTH 

07172 

QUOTS 

07173 

REMH 

07174 

REMS 

07175 

S T F M A 

07176 

stfmb 

07177 

SVCRY 

07200 

TACW 

07201 

TEM 

07202 

TEMYl 

07203 

XBAD 

07204 

TSR 

105225 

TYT 

105345 

TSP 

105354 

TOIGIT 

105401 

TCR 

105412 

TIN 

105412 

IDIVS 

657323 

CLSF 

700001 

CLOF 

700004 

CLON 

700044 

RSF 

700101 

RCF 

700102 

RSA 

700104 

RRB 

700112 

RSR 

700144 

PSF 

700201 

PCF 

700202 

PSA 

700204 

PSR 

700244 

KSF 

700301 

KRR 

700312 

TSF 

700401 

TCF 

700402 

TLS 

700406 



